# TODO: Add comment
# 
# Author: E.Korsching  2021
###############################################################################



rowMedians <- function(x, na.rm=FALSE){
	# rowMedians function similar to rowMeans() function
	# x: df or matrix
	nr <- nrow(x)
	erg <- vector("numeric",nr)
	names(erg) <- row.names(x)
	for(i in 1:nr){
		erg[i] <- median(x[i,], na.rm=na.rm)
	}
	return(erg)
}

colMedians <- function(x, na.rm=FALSE){
	# colMedians function similar to colMeans() function
	# x: df or matrix
	nc <- ncol(x)
	erg <- vector("numeric",nc)
	names(erg) <- names(x)
	for(i in 1:nc){
		erg[i] <- median(x[,i], na.rm=na.rm)
	}
	return(erg)
}