merge with remote
[aggexp.git] / scripts / buildexp / plotComparison.R
1 library(aggexp)
2 rr_all = runAlgorithm("rr", experts=1:22, stations="PQV_2014", H=183)
3 ml_all = runAlgorithm("ml", experts=1:22, stations="PQV_2014", H=183, grad=TRUE)
4 ml_half = runAlgorithm("ml", experts=c(1:10,11,13,15,17,19,21), stations="PQV_2014", H=183, grad=TRUE)
5 rr_half = runAlgorithm("rr", experts=c(1:10,11,13,15,17,19,21), stations="PQV_2014", H=183)
6 rr_nogam = runAlgorithm("rr", experts=1:10, stations="PQV_2014", H=183)
7 ml_nogam = runAlgorithm("ml", experts=1:10, stations="PQV_2014", H=183, grad=TRUE)
8
9 png("comparePerformances.png", width=1920, height=1080)
10 par(las=1, mfrow=c(2,3))
11 plotCloud(rr_nogam, main="RR - no GAM")
12 plotCloud(rr_half, main="RR - high polluted GAM")
13 plotCloud(rr_all, main="RR - all GAM")
14 plotCloud(ml_nogam, main="ML - no GAM")
15 plotCloud(ml_half, main="ML - high polluted GAM")
16 plotCloud(ml_all, main="ML - all GAM")
17 dev.off()