Displaying 1 result from an estimated 1 matches for "plot3dlin".
Did you mean:
plot3dlines
2008 May 20
1
drawing lines in 3D (rotating them)
...less violant than Esc ?
Thanks for your help.
Here is my code :
----- 8< ---------------------------
data <- array(c(13,14,13,15, 14,15,16,15, 16,17,16,18 , 45,46,85,59,
43,58,70,56, 45,75,65,65),
dim=c(4,3,2),dimnames=c("id","temps","var"))
plot3Dlines <- function(x,y,mean=TRUE,angle=20,delais=100000,color,...){
time <- 1:dim(x)[[2]]
var1 <- seq(min(x[,,1],na.rm=TRUE),max(x[,,1],na.rm=TRUE),length.out=11)
var2 <- matrix(NA,length(time),length(var1))#outer(x, y, NA)
var2[1,1] <- min(x[,,2],na.rm=TRUE)
var2[leng...