Nothing
hildreth.lu <- function(y, x, rho)
{
if(abs(rho)>1) stop(paste("rho must be between -1 and 1!",
"\n"))
t <- 2:length(y)
y <- y[t] - rho * y[t-1]
x <- x[t] - rho * x[t-1]
return(lm(y ~ x))
}
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.