R/pipeline.R

In TheoreticalEcosystemEcology/coocc_not_inter: Research compendium

#' Analysis pipeline
#'
#' Run the entire analysis.
#'
#' @export


pipeline <- function() {
  #
  set.seed(7891)
  #
  msgInfo("Argument 1")
  scr_arg1()
  #
  msgInfo("Argument 2")
  scr_arg2()
  #
  msgInfo("Argument 3")
  scr_arg3()
  #
  msgInfo("Argument 4")
  scr_arg4()
  #
  msgInfo("Argument 5")
  scr_arg5()
  #
  ## NB: no figure for argument 6
  #
  msgInfo("Argument 7")
  scr_arg7()
  invisible(NULL)
}