Changes between Version 10 and Version 11 of udg/ecoms/RPackage/examples/continentalSelection
- Timestamp:
- Jul 11, 2014 8:14:15 PM (8 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
udg/ecoms/RPackage/examples/continentalSelection
v10 v11 4 4 5 5 {{{ 6 #!text/R 6 7 > ex2 <- loadECOMS(dataset = "CFSv2_seasonal_16", var = "tasmin", members = 1:2, lonLim = c(-15,35), latLim = c(32, 75), season = c(12,1,2), years = 2001:2010, leadMonth = 3, time = "DD") 7 8 [2014-06-17 12:47:49] Defining homogeneization parameters for variable "tasmin" … … 18 19 19 20 {{{ 21 #!text/R 20 22 > str(ex2$Data) 21 23 num [1:902, 1:54, 1:47, 1:2] 17.4 16.4 17.4 18.7 18.4 ... … … 26 28 27 29 {{{ 30 #!text/R 28 31 > library(fields) # Install if not available to reproduce the example 29 32 > member1 <- apply(ex2$Data[,,,1], FUN = mean, MARGIN = c(2,3)) … … 44 47 45 48 {{{ 49 #!text/R 46 50 > ex2.obs <- loadECOMS(dataset = "WFDEI", var = "tasmin", lonLim = c(-15,35), latLim = c(32, 75), season = c(12,1,2), years = 2001:2010) 47 51 [2014-06-17 16:28:13] Defining homogeneization parameters for variable "tasmin" … … 56 60 57 61 {{{ 62 #!text/R 58 63 > observed <- apply(ex2.obs$Data, FUN = mean, MARGIN = c(1,2)) 59 64 > x.obs <- ex2.obs$xyCoords$x … … 68 73 69 74 {{{ 75 #!text/R 70 76 > obs.regridded <- interp.surface.grid(obj = list(x = x.obs, y = y.obs, z = observed), grid.list = list(x = x, y = y)) 71 77 > par(mfrow = c(1,2))