Nothing
Const <- function(name = c("pi", "gamma", "catalan", "log2"), prec = 120L,
rnd.mode = c('N','D','U','Z','A'))
{
stopifnot(is.numeric(prec))
if(is.na(i <- pmatch(name, eval(formals()$name))))
stop("'name' must be one of ",
paste(paste("'",eval(formals()$name),"'",sep=""),
collapse=", "))
new("mpfr", list(.Call(const_asMpfr, i, prec, match.arg(rnd.mode))))
}
## fails here; must happen *after* dyn.load, i.e. in
## ./zzz.R : Pi <- Const("pi")
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.