Nothing
#Author: Antonio, Fabio Di Narzo. Last Modified $Date: 2005-12-02 17:15:39 +0100 (ven, 02 dic 2005) $
C2 <- function(series, m, d, t, eps){
checkEmbParms(series, m, d, t)
if(eps<=0) stop("eps must be positive")
res <- numeric(1)
.C("C2", series=as.double(series), m=as.integer(m), d=as.integer(d),
length=as.integer(length(series)), t=as.integer(t),
eps=as.double(eps), res=as.double(res), PACKAGE="tseriesChaos")[["res"]]
}
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.