Description Usage Arguments Value Author(s) See Also Examples
Plot multiple ROC curves contained in mc.roc
objects (see details in mc.roc
).
1 2 |
x |
|
leg |
User defined legend or select information from |
llty |
List of symbols |
lcol |
List of colors |
xleg |
Upper left corner co-ordinate on the x-axis |
yleg |
Upper left corner co-ordinate on the y-axis |
... |
Further arguments to be passed to lines |
NULL
David Enot dle@aber.ac.uk
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | data(iris)
dat=as.matrix(iris[,1:4])
cl=as.factor(iris[,5])
lrnd=sample(1:150)[1:50]
cl[lrnd]=sample(cl[lrnd])
pars <- valipars(sampling = "cv",niter = 2, nreps=10)
dat1=dat.sel1(dat,cl,pwise="virginica",mclass=NULL,pars=pars)
res1=lapply(dat1,function(x) accest(x,clmeth="lda"))
res2=lapply(dat1,function(x) accest(x,clmeth="randomForest",ntree=50))
mc=mc.agg(res1,res2)
roc.sv=mc.roc(mc,lmod=1:4)
### Default plot
plot(roc.sv)
###Improve plotting by using the names contained in the "DisId" and "Alg"
plot(roc.sv,leg=c("DisId","Alg"),llty=c(1,1,2,2),lcol=c("blue","red","blue","red"))
###Improve plotting by setting the legend
plot(roc.sv,leg=c("roc1","roc2","roc3","roc4"),llty=c(1,1,2,2),lcol=c("blue","red","blue","red"))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.