Nothing
#' Compute Interday Coefficient of Variation
#'
#' This function computes the interday coefficient of variation
#'
#' @param df Data frame read through readfile
#' @return A numeric value representing interday cv
#' @examples
#' mydatafile <- system.file("extdata", "my_data_file.csv", package = "cgmquantify")
#' mydata <- readfile(mydatafile)
#' interdaycv(mydata)
#' @export
#' @import stats
interdaycv <- function(df) {
cvx = (sd(df$glucose) / mean(df$glucose)) * 100
return(cvx)
}
#' Compute Interday Standard Deviation
#'
#' This function computes the interday standard deviation
#'
#' @param df Data frame read through readfile
#' @return A numeric value representing interday sd
#' @export
#' @examples
#' mydatafile <- system.file("extdata", "my_data_file.csv", package = "cgmquantify")
#' mydata <- readfile(mydatafile)
#' interdaysd(mydata)
#' @import stats
interdaysd <- function(df) {
interdaysd = stats::sd(df$glucose)
return(interdaysd)
}
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.