Nothing
interpret.fpcat <-
function(x, nscore=1, moment=c("mean", "sd", "var", "cov", "cor", "skewness", "kurtosis"), ...)
{
times <- x$times
class(x) <- "fpcad"
ret <- interpret(x, nscore=nscore, moment=moment)
return(invisible(ret))
}
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.