R/aapply.R

Defines functions aapply

#' @export
aapply <- function(X, FUN, ...){
  x <- sapply(X, FUN, ...)
  if(class(x) != "matrix"){
    x <- t(x)
  }
  return(x)
}
AnthonyEbert/StartNetwork documentation built on April 24, 2020, 3:28 a.m.