R/getcolfoldert.R

In dad: Three-Way / Multigroup Data Analysis Through Densities

Defines functions getcol.foldert

Documented in getcol.foldert

getcol.foldert <- function(object, name) {
  if (!is.foldert(object))
    stop("getcol.foldert applies to an object of class 'foldert'.")
  
  xf <- lapply(object, "[", name)
  attributes(xf) <- attributes(object)
  
  return(xf)
}

Try the dad package in your browser