R/profile.ICC.R

Profile.ICC <-
function(set1, set2, ..., omit=TRUE) {

  mat <- abind(set1, set2, ..., along=3)
  if(omit==T) {
    res <- t(apply(mat, 1, function(x) get.ICC(na.omit(x))))
  }
  if(omit==F) {
    res <- t(apply(mat, 1, get.ICC))
  }
  colnames(res) <- c("ICC1", "ICC1k", "ICC2", "ICC2k", "ICC3", "ICC3k")
  return(res)
}

Try the multicon package in your browser

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

multicon documentation built on May 2, 2019, 3:18 a.m.