Displaying 1 result from an estimated 1 matches for "cntrds".
Did you mean:
cards
2012 Feb 05
0
Lattice: correct use of ltransform3dto3d to plot a surface under a cloud ?
...0,x1,y0,y1 :
panel.3d.levels <- function(x, y, z,rot.mat, distance, zlim.scaled,...)
{
zz <- surf[[packet.number()]]
n <- nrow(zz)
s <- seq(-.5,.5,l=n)
lp <- level.colors(zz, at = do.breaks(range(zz), 20),
col.regions = heat.colors(20))
cntrds <- expand.grid(s,s)
apply(cntrds,1,function(i){
xx <- i[1]+c(-.5,.5)/(n-1) ; yy <- i[2]+c(-.5,.5)/(n-1)
m <- ltransform3dto3d(rbind(xx,yy,zlim.scaled[1]), rot.mat, distance)
panel.rect(m[1,1],m[2,1],m[1,2],m[2,2])
})
panel.3dscatter(x, y, z, rot.mat, dis...