R/freq.count.R

`freq.count` <-
function (x) 
{
    events <- sort(unique(x))
    y <- 0
    for (i in 1:length(events)) {
        y[i] <- sum(x == events[i])
    }
    y
}

Try the Animal package in your browser

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

Animal documentation built on May 2, 2019, 5:48 p.m.