tests/testthat/helper-preproc.R

prep_fun <- function(data, .by = NULL) {
  data |>
    summarise(
      nhit = mean(.data$nhit[.data$feedback == 1]),
      .by = all_of(.by)
    )
}
psychelzh/dataproc.iquizoo documentation built on Oct. 20, 2024, 6:26 p.m.