extraTests/eegDemo/test_eegData.R

test_that("eegData online", {
  
  load('data.Rdata')
  
  newResult <- run.online(inputs = data$streams, data$blocks, classifier)

  expect_equal(newResult, result)  
  
})
tz-lom/Resonance-Rproj documentation built on July 1, 2019, 4:53 p.m.