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()