Changes between Version 10 and Version 11 of udg/ecoms/RPackage/examples/continentalSelection


Ignore:
Timestamp:
Jul 11, 2014 8:14:15 PM (7 years ago)
Author:
juaco
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • udg/ecoms/RPackage/examples/continentalSelection

    v10 v11  
    44
    55{{{
     6#!text/R
    67> 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")
    78[2014-06-17 12:47:49] Defining homogeneization parameters for variable "tasmin"
     
    1819
    1920{{{
     21#!text/R
    2022> str(ex2$Data)
    2123 num [1:902, 1:54, 1:47, 1:2] 17.4 16.4 17.4 18.7 18.4 ...
     
    2628
    2729{{{
     30#!text/R
    2831> library(fields) # Install if not available to reproduce the example
    2932> member1 <- apply(ex2$Data[,,,1], FUN = mean, MARGIN = c(2,3))
     
    4447
    4548{{{
     49#!text/R
    4650> ex2.obs <- loadECOMS(dataset = "WFDEI", var = "tasmin", lonLim = c(-15,35), latLim = c(32, 75), season = c(12,1,2), years = 2001:2010)
    4751[2014-06-17 16:28:13] Defining homogeneization parameters for variable "tasmin"
     
    5660
    5761{{{
     62#!text/R
    5863> observed <- apply(ex2.obs$Data, FUN = mean, MARGIN = c(1,2))
    5964> x.obs <- ex2.obs$xyCoords$x
     
    6873
    6974{{{
     75#!text/R
    7076> obs.regridded <- interp.surface.grid(obj = list(x = x.obs, y = y.obs, z = observed), grid.list = list(x = x, y = y))
    7177> par(mfrow = c(1,2))