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/dataprocr2 documentation built on Oct. 22, 2024, 12:22 p.m.