Displaying 1 result from an estimated 1 matches for "zsamp".
Did you mean:
samp
2006 Feb 20
1
Further rgl()/spheres3d() query
...in.colors(zlen) # height color lookup table
col <- colorlut[ ((z*amp)-zlim[1])*100+1 ] # assign colors to heights
surface3d(x,y,z*amp,color=col)
for (i in 1:30) {
for (i in 1) {
pc <- g.pca$rotation[,i]
pc.pos <- (pc > 0)
if (any(pc.pos)) {
spheres3d(xval[pc.pos],yval[pc.pos],6*zsamp[pc.pos],
radius=scale*pc[pc.pos],color="red")
}
if (any(!pc.pos)) {
spheres3d(xval[!pc.pos],yval[!pc.pos],6*zsamp[!pc.pos],
radius=scale*pc[!pc.pos],color="blue")
}
points3d(sample[i,1],sample[i,2],sample[i,3],color="white",size=3.5,
lit=TRUE...