eafdiffplot(data.left, data.right,
intervals = c("[0.0, 0.2)","[0.2, 0.4)","[0.4, 0.6)",
"[0.6, 0.8)","[0.8, 1.0]"),
col = c("#FFFFFF", "#BFBFBF","#808080","#404040","#000000"),
percentiles = c(50),
full.eaf = FALSE,
type = ifelse(full.eaf, "area", "point"),
legend.pos = ifelse(full.eaf,"bottomleft", "topright"),
title.left = deparse(substitute(data.left)),
title.right = deparse(substitute(data.right)),
xlim = NULL, ylim = NULL,
cex = par("cex"),
cex.lab = par("cex.lab"),
cex.axis = par("cex.axis"),
maximise = c(FALSE, FALSE),
...)read.data.setslength(intervals) defines in how
many intervals the EAF differences are partitioned, whereas
intervals gives the labels of each interval forlength(col) == length(intervals).eafplot.default.legend.plot.default.plot.default.read.data.sets, eafplotA1<-read.data.sets(file.path(system.file(package="eaf"),"extdata","ALG_1_dat"))
A2<-read.data.sets(file.path(system.file(package="eaf"),"extdata","ALG_2_dat"))
eafdiffplot(A1,A2)
eafdiffplot(A1,A2, full.eaf=TRUE)Run the code above in your browser using DataLab