Nothing
##
## p3d:Surf3d.R
## 2011-12-22
##
Surf3d <-
function( x ,...) {
help = "
Surf3d methods not yet written
"
UseMethod("Surf3d")
}
Surf3d.default <-
function( x, z, y, ...) {
g <- expand.grid( x = sort(unique(x)), z = sort(unique(z)))
stop("Surf3d methods not yet written")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.