R/addmed.R

Defines functions addmed

#' @importFrom stats aggregate
#' @keywords internal
addmed <-
function(data, vble, id) {
	submed <- aggregate(data[,vble], list(id=data[,id]), meadian)
	colnames(submed) <- c(id,"pmed")
	merge(data, submed)
}
pestore/store documentation built on June 25, 2022, 4:29 a.m.