R/fastSumID.R

fastSumID <- function (x, group) {
    as.vector(x = rowsum.default(x, group, reorder = FALSE), mode = "numeric")
}

Try the JMbayes package in your browser

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

JMbayes documentation built on Jan. 9, 2020, 9:07 a.m.