Displaying 1 result from an estimated 1 matches for "colreg".
2012 Feb 09
2
Lattice 3d coordinate transformation
...incorporate the x,y limits to 1st and nth
levels.
panel.3d.contour <- function(x, y, z,rot.mat, distance,xlim,ylim,
zlim.scaled,nlevels=20,...)
{
add.line <- trellis.par.get("add.line")
zz <- surf[[packet.number()]]
clines <- contourLines(zz,nlevels = nlevels)
colreg <- heat.colors(max(unlist(lapply(clines,function(ll) ll$level))))
for (i in 2:length(clines)) {
ll <- clines[[i]]
ll0 <- clines[[i-1]]
m <- ltransform3dto3d(rbind(ll$x-.5, ll$y-.5, zlim.scaled[1]),
rot.mat, distance)
m0 <- ltransform3dto3d(rbind(ll0$x-.5,...