Nothing
context("PlotEmpiricalOperatingCharacteristics: ROC & FROC & vectors & lists")
test_that("ROC & FROC & vectors & lists", {
fn <- paste0(test_path(), "/goodValues361/Plots/ds04-ROC-vectors", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ret <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = seq(1,5), rdrs = seq(1,4), opChType = "wAFROC")
saveRDS(ret, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(dataset04, trts = seq(1,5), rdrs = seq(1,4), opChType = "wAFROC"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = seq(1,5), rdrs = seq(1,4), opChType = "wAFROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
plotT <- list(1, 2, c(1:2), c(1:2))
plotR <- list(2, c(2:3), c(1:3), 1)
fn <- paste0(test_path(), "/goodValues361/Plots/ds04-ROC-lists", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ret <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "ROC")
saveRDS(ret, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "ROC"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "ROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/ds04-FROC", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ret <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "FROC")
saveRDS(ret, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "FROC"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "FROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/ds04-AFROC", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ret <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "AFROC")
saveRDS(ret, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "AFROC"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "AFROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/ds04-wAFROC", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ret <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "wAFROC")
saveRDS(ret, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "wAFROC"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "wAFROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/ds04-AFROC1", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ret <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "AFROC1")
saveRDS(ret, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "AFROC1"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "AFROC1")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/ds04-wAFROC1", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ret <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "wAFROC1")
saveRDS(ret, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "wAFROC1"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(dataset04, trts = plotT, rdrs = plotR, opChType = "wAFROC1")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
})
context("PlotEmpiricalOperatingCharacteristics: LROC")
test_that("PlotOperatingCharacteristics-LROC", {
K1 <- 10;K2 <- 10;mu <- 1;lambda <- 1;nu <- 0.8;zeta1 <- -3;perCase <- rep(1, K2)
frocData <- SimulateFrocDataset(mu, lambda, nu, zeta1, I = 2, J = 5, K1, K2, perCase, seed = 5)
lrocData <- DfFroc2Lroc(frocData)
fn <- paste0(test_path(), "/goodValues361/Plots/lrocData-ROC", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
p <- PlotEmpiricalOperatingCharacteristics(lrocData, opChType = "ROC" )
saveRDS(p, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(lrocData, opChType = "ROC" ), ret, check.environment = FALSE)
t<- PlotEmpiricalOperatingCharacteristics(lrocData, opChType = "ROC" )
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points,check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/lrocData-LROC", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
p <- PlotEmpiricalOperatingCharacteristics(lrocData, opChType = "LROC" )
saveRDS(p, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(lrocData, opChType = "LROC" ), ret, check.environment = FALSE)
t<-PlotEmpiricalOperatingCharacteristics(lrocData, opChType = "LROC" )
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
plotT <- list(1, 2)
plotR <- list(seq(1,5), seq(1,5)) # 5 readers
fn <- paste0(test_path(), "/goodValues361/Plots/lrocData-ROC-lists", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
p <- PlotEmpiricalOperatingCharacteristics(lrocData, trts = plotT, rdrs = plotR, opChType = "ROC")
saveRDS(p, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(lrocData, trts = plotT, rdrs = plotR, opChType = "ROC"), ret, check.environment = FALSE)
t <- PlotEmpiricalOperatingCharacteristics(lrocData, trts = plotT, rdrs = plotR, opChType = "ROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/lrocData-LROC-lists", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
p <- PlotEmpiricalOperatingCharacteristics(lrocData, trts = plotT, rdrs = plotR, opChType = "LROC")
saveRDS(p, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(lrocData, trts = plotT, rdrs = plotR, opChType = "LROC"), ret, check.environment = FALSE)
t<-PlotEmpiricalOperatingCharacteristics(lrocData, trts = plotT, rdrs = plotR, opChType = "LROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
fn <- paste0(test_path(), "/goodValues361/Plots/lrocData-LROC-vectors", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
p <- PlotEmpiricalOperatingCharacteristics(lrocData, trts = c(1,2), rdrs = seq(1,5), opChType = "LROC")
saveRDS(p, file = fn)
}
ret <- readRDS(fn)
# expect_equal(PlotEmpiricalOperatingCharacteristics(lrocData, trts = c(1,2), rdrs = seq(1,5), opChType = "LROC"), ret, check.environment = FALSE)
t<- PlotEmpiricalOperatingCharacteristics(lrocData, trts = c(1,2), rdrs = seq(1,5), opChType = "LROC")
expect_is(t$Plot, "ggplot")
expect_equal(t$Points, ret$Points, check.environment = FALSE)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.