R/olstests1.R

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
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.