# PALS0046 Lab 01-03 - student setup smoke test (base R)
# Set working directory to the unpacked student folder first.
stopifnot(file.exists("data/pals_synthetic.csv"))
pals <- read.csv("data/pals_synthetic.csv", stringsAsFactors = FALSE)
stopifnot(nrow(pals) == 18L, ncol(pals) == 8L,
          length(unique(pals$id)) == 18L,
          isTRUE(all.equal(mean(pals$rt_ms), 597.2222222222222)),
          isTRUE(all.equal(median(pals$rt_ms), 597.5)),
          all(pals$gain == pals$memory_post - pals$memory_pre))
cat("PALS0046 LAB 01-03 SETUP CHECK PASS\n")