Skip to content

Instantly share code, notes, and snippets.

@CerebralMastication

CerebralMastication/3d_lattice.R

Created January 19, 2010 15:32
Show Gist options
  • Save CerebralMastication/281001 to your computer and use it in GitHub Desktop.
Save CerebralMastication/281001 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
3d_lattice.R
require(lattice)
myGrid <- expand.grid(1:100,1:100)
names(myGrid) <- c("x1","x2")
myGrid$x3 <- with(myGrid, x1^2 + x2^2)
wireframe(x3 ~ x1 * x2, data = myGrid,
scales = list(arrows = FALSE),
drape = TRUE, colorkey = TRUE
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment