projects / aggexp.git / blame
| Commit | Line | Data |
|---|---|---|
| a961f8a1 BA |
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() |