R/lintests1.R

lintests1 <-
function(vstar,yhat,res,mflag,x,regfun,...){
ystar<-yhat+res*vstar
bres<-regfun(x,ystar,...)$residuals
rval<-0
for (i in 1:nrow(x)){
rval[i]<-sum(bres[mflag[,i]])
}
rval
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.