Changes between Version 13 and Version 14 of udg/ecoms/RPackage/examples/pointSelection

Timestamp:

Mar 9, 2015 6:29:09 PM (7 years ago)

Author:

juaco

Comment:

--

udg/ecoms/RPackage/examples/pointSelection

@@ -16 +16 @@
 {{{
 #!text/R
-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")
+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")
 }}}
 
@@ -77 +85 @@
 ens.mean <- colMeans(point.cfs$Data)
 dates <- as.POSIXlt(point.cfs$Dates$start, tz="GMT")
-plot(dates, ens.mean, ylim = range(point.cfs$Data), ty = 'n', ylab = "tas - Daily Mean", xlab = "time")
-polygon(x = c(dates, rev(dates)), y = c(quartiles[1, ], rev(quartiles[2, ])), border = "transparent", col = rgb(0,0,1,.4))
+plot(dates, ens.mean, ylim = range(point.cfs$Data),
+     type = 'n', ylab = "tas - Daily Mean", xlab = "time")
+polygon(x = c(dates, rev(dates)),
+        y = c(quartiles[1, ], rev(quartiles[2, ])),
+        border = "transparent", col = rgb(0,0,1,.4))
 lines(dates, ens.mean)
 }}}
@@ -90 +101 @@
 {{{
 #!text/R
-point.wfdei <- loadECOMS(dataset = "WFDEI", var = "tas", lonLim = -3.7, latLim = 40.4, season = 6:8, years = 2001, time = "DD")
+point.wfdei <- loadECOMS(dataset = "WFDEI",
+                         var = "tas",
+                         lonLim = -3.7,
+                         latLim = 40.4,
+                         season = 6:8,
+                         years = 2001,
+                         time = "DD")
 print(object.size(point.wfdei)) # 13704 bytes
 }}}