#' @export
plan <- function(df, exp) {
nb <- nrow(df)
out <- rep(exp, nb)
param <- names(df)
expes <- rownames(df)
for(i in seq_len(nb)) {
out[[i]][param] <- unname(df[i, ])
out[[i]]["experiment"] <- expes[i]
}
setNames(out, expes)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.