Nothing
#####################################################################
#*copying the data set 100 times;
#' @export
#' @import formattable
#' @import mefa
replicate_data <- function(start, end, Before, After, data) {
mu <- seq(start * 100, end * 100, by = (end - start))
mu <- rep(mu, each = nrow(data))
before <- data[[Before]] - mu / 100
after <- data[[After]]
mee_chua <- data.frame(mu = mu, before = before, after = after)
return(mee_chua)
}
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.