lisa_stuff/study_framework.R

In debruine/pipeline: Machine-Readable Studies

######################
# function framework #
######################

study <- function(name = "Demo Study") {
  study <- list(
    name = name,
    hypotheses = list(),
    methods = list(),
    data = list(),
    analyses = list()
  )

  class(study) <- c(class(study), "reg_study")

  invisible(study)
}

add_hypothesis <- function(study,
                           id = NULL,
                           description = "",
                           evaluation = "&") {
  invisible(study)
}

add_criterion <- function(study,
                          hypothesis_id = NULL,
                          analysis_id = NULL,
                          result,
                          direction,
                          comparator) {
  invisible(study)
}

add_analysis <- function(study,
                         id = NULL,
                         func,
                         params = list()) {
  invisible(study)
}

add_data <- function(study, data) {
  invisible(study)
}

study_analyse <- function(study) {
  invisible(study)
}

study_report <- function(study, type = "prereg") {
  invisible(study)
}