Nothing
`lagtime` <-
function(x,y){
if(var(x)==0 | var(y)==0){
if(var(x)==0 & var(y)==0){
return(0)
} else {
warning("unable to determine lagtime between constant and variable series")
return(NA)
}
}
theRes<-ccf(x,y, plot=FALSE)
return(theRes$lag[ min(which(theRes$acf==max(theRes$acf)))])
}
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.