tests/testthat/test-LrocDfConvFuncs.R

In dpc10ster/rjafroc-master: Artificial Intelligence Systems and Observer Performance

contextStr <- "DfFroc2Lroc: LROC related Df conversion functions"
context(contextStr)
test_that(contextStr, {

  dsLroc <- DfFroc2Lroc(dataset05)
  ret1 <- UtilFigureOfMerit(dataset05, FOM = "HrAuc")
  ret2 <- UtilFigureOfMerit(dsLroc, FOM = "Wilcoxon")

  for (i in 1:length(ret1))
  {
    val1 <- ret1[[i]]
    val2 <- ret2[[i]]
    expect_equal(val1, val2)
  }

  frocDataset <- DfLroc2Froc(datasetCadLroc)
  ret1 <- UtilFigureOfMerit(datasetCadLroc, FOM = "Wilcoxon")
  ret2 <- UtilFigureOfMerit(frocDataset, FOM = "HrAuc")

  for (i in 1:length(ret1))
  {
    val1 <- ret1[[i]]
    val2 <- ret2[[i]]
    expect_equal(val1, val2)
  }

  rocDataset <- DfLroc2Roc(datasetCadLroc)
  ret1 <- UtilFigureOfMerit(datasetCadLroc, FOM = "Wilcoxon")
  ret2 <- UtilFigureOfMerit(rocDataset, FOM = "Wilcoxon")    
  
  for (i in 1:length(ret1))
  {
    val1 <- ret1[[i]]
    val2 <- ret2[[i]]
    expect_equal(val1, val2)  
  }
  
})