tests/testthat/test_psy_phd.R

context('PhD')

fixture_dir <- '../fixtures'

rsvp         <- read.csv(paste(fixture_dir, 'rsvp.csv', sep='/'))
participants <- read.csv(paste(fixture_dir, 'p.csv', sep='/'))
test_that("rsvp_accuracy() works", {
  expect_is(rsvp_accuracy(rsvp, participants), 'data.frame')
  })
earcanal/psy.phd documentation built on Aug. 6, 2021, 2:12 p.m.