Changes between Version 13 and Version 14 of udg/ecoms/RPackage/examples/pointSelection
- Timestamp:
- Mar 9, 2015 6:29:09 PM (7 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
udg/ecoms/RPackage/examples/pointSelection
v13 v14 16 16 {{{ 17 17 #!text/R 18 point.cfs <- loadECOMS(dataset = "CFSv2_seasonal_16", var = "tas", members = 1:10, lonLim = -3.7, latLim = 40.4, season = 6:8, years = 2001, leadMonth = 2, time = "DD") 18 point.cfs <- loadECOMS(dataset = "CFSv2_seasonal_16", 19 var = "tas", 20 members = 1:10, 21 lonLim = -3.7, 22 latLim = 40.4, 23 season = 6:8, 24 years = 2001, 25 leadMonth = 2, 26 time = "DD") 19 27 }}} 20 28 … … 77 85 ens.mean <- colMeans(point.cfs$Data) 78 86 dates <- as.POSIXlt(point.cfs$Dates$start, tz="GMT") 79 plot(dates, ens.mean, ylim = range(point.cfs$Data), ty = 'n', ylab = "tas - Daily Mean", xlab = "time") 80 polygon(x = c(dates, rev(dates)), y = c(quartiles[1, ], rev(quartiles[2, ])), border = "transparent", col = rgb(0,0,1,.4)) 87 plot(dates, ens.mean, ylim = range(point.cfs$Data), 88 type = 'n', ylab = "tas - Daily Mean", xlab = "time") 89 polygon(x = c(dates, rev(dates)), 90 y = c(quartiles[1, ], rev(quartiles[2, ])), 91 border = "transparent", col = rgb(0,0,1,.4)) 81 92 lines(dates, ens.mean) 82 93 }}} … … 90 101 {{{ 91 102 #!text/R 92 point.wfdei <- loadECOMS(dataset = "WFDEI", var = "tas", lonLim = -3.7, latLim = 40.4, season = 6:8, years = 2001, time = "DD") 103 point.wfdei <- loadECOMS(dataset = "WFDEI", 104 var = "tas", 105 lonLim = -3.7, 106 latLim = 40.4, 107 season = 6:8, 108 years = 2001, 109 time = "DD") 93 110 print(object.size(point.wfdei)) # 13704 bytes 94 111 }}}