R/class_to_list.R

class_to_list <-
function (x) 
{
    slot_names <- slotNames(x)
    l <- list()
    for (name in slot_names) {
        l[[name]] <- slot(x, name)
    }
    return(l)
}
bhklab/fastCI documentation built on Dec. 3, 2020, 12:17 a.m.