R/est.rm.R

Defines functions est.rm

Documented in est.rm

# Verified 1.3.18
est.rm <-
function(collection, list){
        pr = collection$data
        catalogo = collection$catalog
        disp = 1 : length(pr)
        disp = disp[-list]
        pr.c.new = list()
        cat.new = list()
        k = 0
        for(j in disp){
                k = k + 1
                pr.c.new [[k]] = pr [[j]]
                cat.new [[k]] = catalogo [[j]]
        }
        col = list(data = pr.c.new, catalog = cat.new)
        class(col) <- "Catalog"
        return(col)
}

Try the vetools package in your browser

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

vetools documentation built on May 30, 2017, 1:27 a.m.