R/print.MgsplitMethods.R

print.MgSplitMethods <- function(x){
    if (x$name!="full data"){
        cat("Cross-Validation splitMethod:",x$name,"\n")
        if (x$internal.name=="crossval")
            cat("Repeat: ",x$B,"\n")
        else{
            if (x$M<x$N)
                cat("Type: subsampling\n",x$M," out of ",x$N,"\n\n")
            cat("No. bootstrap samples: ",x$B,"\n")
        }
    }
    cat("Sample size: ",x$N,"\n")
}

Try the ModelGood package in your browser

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

ModelGood documentation built on May 2, 2019, 5 p.m.