#' Create calculated annotation #' #' \code{calculatedAnnotation} adds a column calculated by operation #' #' @param es ExpressionSet object. #' #' @param operation Name of the operation to perform calculation #' #' @import Biobase #' calculatedAnnotation <- function (es, operation) { fn <- tolower(operation) fData(es)[[operation]] <- apply(exprs(es), 1, fn) assign("es", es, envir = parent.frame()) }