regYsub <- function(x,y,xr,p1,regfun=tsreg,...){ est=regfun(x,y,...)$coef xr=as.matrix(xr) yhat=est[1]+xr%*%est[2:p1] yhat }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.