tests/testthat/test-StSignificanceTestingSplitPlot.R

In RJafroc: Artificial Intelligence Systems and Observer Performance

contextStr <- "StSignificanceTesting: frocSpC wAFROC"
context(contextStr)
test_that(contextStr, {

  fileName <- system.file(
    "extdata", "/toyFiles/FROC/frocSpC.xlsx", package = "RJafroc", mustWork = TRUE)

  temp <- DfReadDataFile(fileName, newExcelFileFormat = TRUE)

  fn <- paste0(test_path(), "/goodValues361/SigTest/frocSpC-wAFROC", ".rds")
  if (!file.exists(fn)) {
    warning(paste0("File not found - generating new ",fn))
    x1 <- StSignificanceTesting(temp, FOM = "wAFROC", method = "OR")
    saveRDS(x1, file = fn)
  }

  x1 <- readRDS(fn)
  x2 <- StSignificanceTesting(temp, FOM = "wAFROC", method = "OR")

  expect_equal(x1,x2)

})




contextStr <- "StSignificanceTesting: frocSpA-wAFROC"
context(contextStr)
test_that(contextStr, {
  
  fileName <- system.file(
    "extdata", "/toyFiles/FROC/frocSpA.xlsx", package = "RJafroc", mustWork = TRUE)
  
  temp <- DfReadDataFile(fileName, newExcelFileFormat = TRUE)
  
  fn <- paste0(test_path(), "/goodValues361/SigTest/frocSpA-wAFROC", ".rds")
  if (!file.exists(fn)) {
    warning(paste0("File not found - generating new ",fn))
    x1 <- StSignificanceTesting(temp, FOM = "wAFROC", method = "OR")
    saveRDS(x1, file = fn)
  }
  
  x1 <- readRDS(fn)
  x2 <- StSignificanceTesting(temp, FOM = "wAFROC", method = "OR")
  
  expect_equal(x1,x2)

})




contextStr <- "StSignificanceTesting: 1T3Rvs4R FROC SpA-wAFROC"
context(contextStr)
test_that(contextStr, {

  fileName <- system.file(
    "extdata", "/toyFiles/FROC/1T3Rvs4R.xlsx", package = "RJafroc", mustWork = TRUE)

  temp <- DfReadDataFile(fileName, newExcelFileFormat = TRUE)

  fn <- paste0(test_path(), "/goodValues361/SigTest/1T3Rvs4R-SpA-wAFROC", ".rds")
  if (!file.exists(fn)) {
    warning(paste0("File not found - generating new ",fn))
    x1 <- StSignificanceTesting(temp, FOM = "wAFROC", method = "OR")
    saveRDS(x1, file = fn)
  }

  x1 <- readRDS(fn)
  x2 <- StSignificanceTesting(temp, FOM = "wAFROC", method = "OR")

  expect_equal(x1,x2)

})