Displaying 2 results from an estimated 2 matches for "wtw".
Did you mean:
btw
2009 Sep 03
0
wireframe - different axes on each panel
...tly appreciated.
Kim
# code to generate the data set, runs quickly
n<-c(2,5,10)
p<-2
lims<-c(4.5,2.5,2)
dat<-NULL
for (j in 1:length(n)) {
f2<-NULL
f1<-NULL
i1<-seq(from=-lims[j],to=lims[j],by=0.1)
W<-as.matrix(expand.grid(w1=i1,w2=i1))
for (i in 1:nrow(W)) {
wtw<-t(W[i,])%*%W[i,]
psi<-(1+W[i,1]^2)/((1+wtw)^((p-1)/2))
f1i<-gamma((n[j]+1)/2)/(pi^(p/2)*gamma((n[j]+1-p)/2)*(1+wtw)^((n[j]+1)/2))
f2<-c(f2,f1i/psi)
f1<-c(f1,f1i)
}
dat<-rbind(dat,cbind(W,f1,rep("h1",nrow(W)),rep(n[j],nrow(W))),
cbind(W,...
2006 Oct 03
1
HP Toolbox kills Samba
...>/<Q6
M=WO9X+)YFIUTSMI9KY^U.OUX_5[_X]JC1IV9)6#&# [@``[@@!ET9M"904]Q
M(6!*ZCDV2C;R(- @.. `#N `X8GP1'ARH.G2A\"#LBHH=O-8Q.16T$88MJ&8
M&TD=Z]I7<W(KI2ZE$9XC89&0="7@``[@@"XE74JZE.Q L53-:867:$YB#%H#
M#N `#M"<:$XT9]6G,7SZ0^]!"16J<*A0!::$@E8NL WTW!VBZ*)BBY]_#%[B
M\]$_Z& X@ ,XF+<#03"A`\$6=C<UFA)2R_DUVHUJ,M'&HVJ27@FMUN[U!W*:
MZK]J*.4JUK->\WTY]+%RJ]T\?[G_27AK;[0;H<S-=A,MT+[LM+1:77O@2XVP
M,Y1^-U5I6?;CWO5[EQ>#6%Y<&_[NTF-E8V6]C9__=>W^LH^XYT%[V&\/RO*B
M:/!/Y=H]E3#]E1]?=GJ[E7=<EB_\USVW_+@K/Z[L8+SNWOZZ...