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 Oct. 22, 2023, 5:06 p.m.