```
# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#' Finds the median
#'
#' Returns the median of a list of values with corresponding frequencies. This
#' is not intended to be called directly by the user.
#'
#' @param values A vector of the unique values that occur
#' @param freqs A vector of the number of occurrences of each value
#' @return Returns the median value of the data comprising each entry in values
#' repeated the corresponding entry in freqs number of times, as a numeric.
#' @author Tom Mayo \email{[email protected]@ed.ac.uk}
#' @export
median_freq <- function(values, freqs) {
.Call('M3Ddevel_median_freq', PACKAGE = 'M3Ddevel', values, freqs)
}
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.