Displaying 1 result from an estimated 1 matches for "shapelist3d".
Did you mean:
shapelist
2011 Jan 31
1
rgl: draw multiple ellipsoids
...zes, angles,...){
N <- NROW(positions)
ll <- lapply(seq(1,N), function(ii)
rgl.ellipsoid(positions[ii,1],positions[ii,2],positions[ii,3],
sizes[ii,1],sizes[ii,2],sizes[ii,3],
angles[ii,1],angles[ii,2],angles[ii,3], ...))
shapelist3d(ll,...)
}
N <- 20
set.seed(123)
positions <- matrix(rnorm(3*N), ncol=3)
sizes <- matrix(runif(3*N, 0.01, 0.05), ncol=3)
angles <- matrix(runif(3*N, 0, 2*pi), ncol=3)
rgl.ellipsoids(positions, sizes, angles, col= 1:N)
Best regards,
baptiste
sessionInfo()
R version 2.12.1 Patched...