1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# A File for temporarily functions to test the GUI.
#
# Author: MarselScheer
###############################################################################
pValuesPlot = function(pValues) {
plot(ecdf(pValues), do.points=FALSE, verticals = TRUE, main="ecdf", ylim=c(0,1))
abline(0,1, col=2)
}
adjPValuesPlot = function(adjPValues, alpha) {
plot(sort(adjPValues), main="Adjusted p-values", ylab="adjusted p-values", xlab="ordered index", ylim=c(0,1))
if (!missing(alpha)) {
abline(alpha,0, col=2)
}
}
|
