R/rgvarseb.R

rgvarseb <-
function(x,nboot=100,est=skipcov,SEED=TRUE,...){
#
n<-nrow(x)
val<-NA
for(i in 1:nboot){
data<-sample(n,n,replace=TRUE)
val[i]<-rgvar(x[data,],est=est,...)
}
se<-sqrt(var(val))
se
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.