#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.