R/removezerospecies.R

Defines functions `removezerospecies`

`removezerospecies` <-
function(x) {
    freq <- apply(x,2,sum)
    subs <- freq>0
    x <- x[,subs,drop=F]
    return(x)
}

Try the BiodiversityR package in your browser

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

BiodiversityR documentation built on Jan. 6, 2023, 5:18 p.m.