Nothing
template_dual <- new("dual", x = numeric(0), d = differential(list()) )
fastNewDual <- function(x, d) {
z <- template_dual
attributes(z) <- list(x = x, d = d, class = "dual");
z
}
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.