Nothing
.linIP <- function(ndvi){
days <- length(ndvi)
f <- approxfun(x=(-days+1):(2*days), y=c(ndvi,ndvi,ndvi))
ndvi.interpol <- f(1:days)
return(ndvi.interpol)
}
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.