Nothing
#' Reduction cells
#'
#' Times to failure (in units of 1000 days) of 20 aluminum reduction cells.
#'
#' @format A data frame with 20 observations.
#' @examples
#' data(reduction_cells)
#' par(mfrow = c(1,2))
#' hist(reduction_cells$days, main="", xlab="Time (Days)")
#' plot(reduction_cells$status, xlab = "Status", lty = 3, type="h")
#' points(reduction_cells$status, pch = 16)
#'
#' @references
#' \insertRef{Whitmore1983}{EstimationTools}
"reduction_cells"
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.