#' 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())
}