regpord.sub <-
function(isub,x,y,cov.fun){
xmat<-matrix(x[isub,],nrow(x),ncol(x))
vals<-regvarp(xmat,y[isub],cov.fun=cov.fun)
vals
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.