Hi,
I would like to create wireframe plots conditional on 2 variables and use
different
limits for the 3-axes in each plot. I thought I could do this with subscripts
and
the panel.wireframe but I haven't been successful. I am getting this
error "...multiple actual arguments..." so I definitely don't have
something
set up correctly. Listed below is the code to generate the dataset and my
attempt
at creating my plot.
Assistance is greatly 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,f2,rep("h2",nrow(W)),rep(n[j],nrow(W))))
}
dat<-data.frame(dat)
colnames(dat)<-c("w1","w2","f","h","ss")
dat$w1<-as.numeric(as.character(dat$w1))
dat$w2<-as.numeric(as.character(dat$w2))
dat$f<-as.numeric(as.character(dat$f))
dat$h<-factor(dat$h,levels=c("h1","h2"))
dat$ss<-factor(dat$ss,levels=c("2","5","10"))
# my attempt to generate the plot
wireframe(f ~ w1 * w2|ss*h, data=dat, between=list(x=1, y=1),
xlab="w1", ylab="w2", zlab="",
shade=TRUE, light.source=c(10,0,10),
panel=function(x, y, z, subscripts, ...) {
xlims<-range(dat$w1[subscripts])
ylims<-range(dat$w2[subscripts])
zlims<-range(dat$f[subscripts])
panel.wireframe(x, y, z,s cales=list(arrows=TRUE), xlim=xlims,
ylim=ylims, zlim=zlims,...)
},
subscripts=TRUE
)
# plot without trying to set the axes limits of each plot
wireframe(f ~ w1 * w2|ss * h, data=dat, between=list(x=1,y=1),
xlab="w1", ylab="w2", zlab="",
shade=TRUE, light.source=c(10,0,10))
[[alternative HTML version deleted]]
