#piegraph <- function(x,...)
# UseMethod("graph")
#
#piegraph.default <- function(x,...) {
# pie(x, labels = names(x), edges = 200, radius = 0.8,
# clockwise = FALSE, init.angle = if(clockwise) 90 else 0,
# density = NULL, angle = 45, col = NULL, border = NULL,
# lty = NULL, main = NULL, ...)
#}
#
#piegraph.station <- function(x,...) {
#}
#
#piegraph.dsensemble <- function(x,...) {
#}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.