R/reptile_train.R

reptile_train <-
function (epimark_region, label_region, epimark_DMR = NULL, label_DMR = NULL, 
    family = "randomForest", ntree = 2000, nodesize = 1) 
{
    reptile = list(D = NULL, R = NULL)
    reptile$R <- reptile_train_one_mode(epimark_region, label_region, 
        family, nodesize = nodesize, ntree = ntree)
    if (!is.null(epimark_DMR) & !is.null(label_DMR)) {
        reptile$D <- reptile_train_one_mode(epimark_DMR, label_DMR, 
            family, nodesize = nodesize, ntree = ntree)
    }
    return(reptile)
}

Try the REPTILE package in your browser

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

REPTILE documentation built on May 2, 2019, 5:06 a.m.