R/countrate.R

In MultiVarMI: Multiple Imputation for Multivariate Data

Defines functions countrate

Documented in countrate

countrate<-function(count.dat) {
  count.rate<-apply(count.dat, 2, function(x) {
    xbar<-mean(x, na.rm=TRUE)
    out<-list(dat=x, rate=xbar)
    return(out)
  })
}

Try the MultiVarMI package in your browser