Displaying 1 result from an estimated 1 matches for "nblines".
Did you mean:
ablines
2008 May 20
1
drawing lines in 3D (rotating them)
...olor,...){
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[length(time),length(var1)] <- max(x[,,2],na.rm=TRUE)
nbLines<-min(100,dim(x)[1])
if(missing(color)){color<-2:(nbLines+1)}else{}
repeat{
res <- persp(x=time, y=var1, z=var2, theta = angle,
phi = 10, expand = 0.5, col = "lightblue",
ltheta = 120, shade = 0.75, ticktype = "detail...