R/getMedian.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Get a median of column of the data frame
#' 
#' @param dataFrame A data frame for which we want to get per column median values
#' @return A data frame where medians are added as a bottom row
#' @export

getMedian <- function(dataFrame){
  median <- vector()
  for (i in 1:ncol(dataFrame)){
    median <- c(median, median(dataFrame[,i]))
  }
dataFrame <- rbind(dataFrame,median)
row.names(dataFrame)[nrow(dataFrame)] <- "median"
dataFrame
}