Displaying 1 result from an estimated 1 matches for "betaon1".
2002 Mar 18
2
persp(): add second plane (second, long question)
...rices
(6x6).
What I did then is
> xachse<-c(1:6)
> yachse<-xachse
>
> par(bg = "white")
>
> trans3d <- function(x,y,z,pmat) {
+ tmat <- t((cbind(x,y,z,1)%*% pmat))
+ list(x=tmat[1,]/tmat[4,],y=tmat[2,]/tmat[4,])
+ }
> pmat <- persp(xachse, yachse, betaon1.median.plot,zlim=c(2.75,3.30), theta
= 60, phi = 20,
+ col = "lightblue", xlab = "X", ylab = "Y", zlab = "Z",
+ ticktype="detailed")
This generates a plot for one sample of z-values with enough space for the
second plane...