Nothing
# ==============================================================================
# the 2D arrows function, using rgl
# ==============================================================================
arrows2Drgl <- function(x0, y0, x1, y1, colvar = NULL, ...,
col = NULL, NAcol = "white", breaks = NULL, colkey = NULL,
clim = NULL, clab = NULL, type = "simple", dz = 0.1, add = FALSE) {
# ------------------------------------------------------------------------------
namesextra <- c("code", "length", "angle", "lwd", "lty", "type")
dots <- plot2Drglbis("arrows3D", x0 = x0, y0 = y0, x1 = x1, y1 = y1,
dz = dz, colkey = colkey, type = type, colvar = colvar, col = col,
NAcol = NAcol, breaks = breaks, clim = clim, clab = clab,
add = add, namesextra = namesextra, ...)
finishplotrgl(dots, namesextra)
}
# ==============================================================================
rect2Drgl <- function (x0, y0, x1, y1, colvar = NULL, ...,
col = NULL, NAcol = "white", breaks = NULL,
colkey = NULL, clim = NULL, clab = NULL,
dz = 0.1, add = FALSE) {
namesextra <- c("lwd", "lty")
z <- rep(1+dz, length.out = length(x0))
dots <- plot2Drglbis("box3D", x0 = x0, y0 = y0, x1 = x1, y1 = y1,
dz = dz, colkey = colkey, colvar = colvar, col = col,
NAcol = NAcol, breaks = breaks, clim = clim, clab = clab, add = add,
namesextra = namesextra, ...)
finishplotrgl(dots, namesextra)
}
# ==============================================================================
# the 2D segments function, using rgl
# ==============================================================================
segments2Drgl <- function(x0, y0, x1, y1, colvar = NULL, ...,
col = NULL, NAcol = "white", breaks = NULL, colkey = NULL,
clim = NULL, clab = NULL, dz = 0.1, add = FALSE) {
# ------------------------------------------------------------------------------
namesextra <- c("lwd", "lty")
z <- rep(1+dz, length.out = length(x0))
dots <- plot2Drglbis("segments3D", x0 = x0, y0 = y0, x1 = x1, y1 = y1,
dz = dz, colkey = colkey, colvar = colvar, col = col,
NAcol = NAcol, breaks = breaks, clim = clim, clab = clab, add = add,
namesextra = namesextra, ...)
finishplotrgl(dots, namesextra)
}
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.