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]]


