Nothing
#' Compute Glucose Summary Statistics
#'
#' This function computes the mean, median, minimum, maximum,
#' first quartile, and the third quartile of an indidividual's
#' overall glucose levels
#' @param df Data frame read through readfile
#' @return A dataframe containing the mean, median, minimum,
#' maximum, quartile1, and quartile3 of glucose levels
#' @examples
#' mydatafile <- system.file("extdata", "my_data_file.csv", package = "cgmquantify")
#' mydata <- readfile(mydatafile)
#' summary_glucose(mydata)
#' @export
#' @importFrom stats median
#' @importFrom stats quantile
summary_glucose <- function(df) {
meanG = mean(df$glucose)
medianG = median(df$glucose)
minG = min(df$glucose)
maxG = max(df$glucose)
Q1G = quantile(df$glucose, 0.25)
Q3G = quantile(df$glucose, 0.75)
return(data.frame(meanG,
medianG,
minG,
maxG,
Q1G,
Q3G))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.