R/qfun.R

qfun <-
function(x,y,coef,q){
x=as.matrix(x)
p1=ncol(x)+1
 r=y-coef[1]-x%*%coef[2:p1]
 rhoq=sum(r*(q-as.numeric((r<0))))
 s=sum(rhoq)
 s
 }
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.