Displaying 5 results from an estimated 5 matches for "grey82".
Did you mean:
grey80
2011 Mar 29
1
plotting several ROC curves on the same graph
...old.par <- par(no.readonly = TRUE); on.exit(par(old.par))
par(xaxs="i", yaxs="i")
plot(1 - r$spec, r$sens, xlim=c(0, 1), ylim=c(0,1), type="l",
xlab="(1 - specificity): false positive rate",
ylab="sensitivity: true positive rate",
col="grey82", lwd=2);
points(1 - r$spec, r$sens,pch=20, cex=1.5, col="grey82")
abline(0, 1, lty=2);
segments(1-r$spec, 1-r$spec, 1-r$spec, r$sens, lty=3)
#text(1 - max(r$spec,na.rm=T),
r$sens[which.max(r$spec)],r$pts[which.max(r$spec)],pos=2,cex=0.8)
text(0, 0.9, paste("Area under ROC...
2009 Jul 25
4
ROCR package question
...s-validation runs (dotted
# in grey), overlaid by the vertical average curve and boxplots
# showing the vertical spread around the average.
data(ROCR.xval)
pred <- prediction(ROCR.xval$predictions, ROCR.xval$labels)
perf <- performance(pred,"tpr","fpr")
plot(perf,col="grey82",lty=3)
plot(perf,lwd=3,avg="vertical",spread.estimate="boxplot",add=TRUE)
I can follow the code and plot without any problem. However, I don't
know how to extract the averaged ROC area under curve value.
Can someone help?
Thanks.
--
Waverley @ Palo Alto
2010 Jan 22
2
Computing Confidence Intervals for AUC in ROCR Package
...predictions, roc.dat$labels)
perf <- performance(pred, "tpr", "fpr")
perf.auc <- performance(pred, "auc")
perf.auc.areas <- slot(perf.auc, "y.values")
curve.area <- mean(unlist(perf.auc.areas))
#quartz(width=4, height=6)
plot(perf, col="grey82", lty=3)
plot(perf,lwd=3,avg="horizontal",spread.estimate="boxplot",
add=T)
title(main=plt.title)
mtext(sprintf("%s%1.4f", "Area under Curve = ", curve.area),
side=3, line=0, cex=0.8)
}
P.S. After years of studying statistical analysis as a stude...
2011 Mar 28
0
How can I plot several ROC curves on the same graph?
...t;) {
old.par <- par(no.readonly = TRUE); on.exit(par(old.par))
par(xaxs="i", yaxs="i")
plot(1 - r$spec, r$sens, xlim=c(0, 1), ylim=c(0,1), type="l",
xlab="(1 - specificity): false positive rate",
ylab="sensitivity: true positive rate",
col="grey82", lwd=2);
points(1 - r$spec, r$sens,pch=20, cex=1.5, col="grey82")
abline(0, 1, lty=2);
segments(1-r$spec, 1-r$spec, 1-r$spec, r$sens, lty=3)
#text(1 - max(r$spec,na.rm=T),
r$sens[which.max(r$spec)],r$pts[which.max(r$spec)],pos=2,cex=0.8)
text(0, 0.9, paste("Area under ROC:"...
2000 Feb 29
0
mapping of colornames into hsv: half way done
...BFBFBF",
"grey76", "#C2C2C2",
"grey77", "#C4C4C4",
"grey78", "#C7C7C7",
"grey79", "#C9C9C9",
"grey80", "#CCCCCC",
"grey81", "#CFCFCF",
"grey82", "#D1D1D1",
"grey83", "#D4D4D4",
"grey84", "#D6D6D6",
"grey85", "#D9D9D9",
"grey86", "#DBDBDB",
"grey87", "#DEDEDE",
"grey88", "#E0E0E0&q...