Commit 3abde52f authored by Jakob Wirbel's avatar Jakob Wirbel
Browse files

fix error with sensitivity confidence interval, leading to failing builds on...

fix error with sensitivity confidence interval, leading to failing builds on the Bioconductor machine.
parent 8f36b80a
......@@ -114,8 +114,8 @@ evaluate.predictions <- function(siamcat, verbose = 1) {
roc.mean = roc(
response = label$label,
predictor = apply(pred, 1, summ.stat),
ci = TRUE,
of = "se",
#ci = TRUE,
#of = "se",
sp = seq(0, 1, 0.05),
direction = '<',
levels = label$info
......
......@@ -277,12 +277,12 @@ single.roc.plot <- function(siamcat, colour, show.all, verbose) {
auroc = eval.data$auroc
# plot CI
x = as.numeric(rownames(roc.summ$ci))
yl = roc.summ$ci[, 1]
yu = roc.summ$ci[, 3]
polygon(1 - c(x, rev(x)), c(yl, rev(yu)),
col = alpha(colour, alpha=0.1),
border = NA)
#x = as.numeric(rownames(roc.summ$ci))
#yl = roc.summ$ci[, 1]
#yu = roc.summ$ci[, 3]
#polygon(1 - c(x, rev(x)), c(yl, rev(yu)),
# col = alpha(colour, alpha=0.1),
# border = NA)
if (!is.null(eval.data$roc.all)){
if (verbose > 1)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment