olstests1 <-
function(vstar,yhat,res,x){
ystar <- yhat + res * vstar
p<-ncol(x)
pp<-p+1
vals<-lsfit(x,ystar)$coef[2:pp]
test<-sum(vals^2)
test
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.