R/MCtest.R

"MCtest" <-
function(x,statistic,resample,bound=MCbound.precalc1,extreme="geq",seed=1234325){
    set.seed(seed)
    if (bound$type=="fixed"){ 
        out<-MCtest.fixed(x,statistic,resample,Nmax=bound$parms[1],extreme=extreme,conf.level=bound$conf.level,seed=seed) 
    }
    else {        
        out<-MCtest.default(x,statistic,resample,bound=bound,extreme=extreme) 
    }
    out
}

Try the MChtest package in your browser

Any scripts or data that you put into this service are public.

MChtest documentation built on May 16, 2019, 5:06 p.m.