R/plan.R

#' @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)
}
choisy/gamar3 documentation built on May 28, 2019, 7:17 p.m.