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


Ignore:
Timestamp:
Mar 9, 2015 6:29:09 PM (7 years ago)
Author:
juaco
Comment:

--

Legend:

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

    v13 v14  
    1616{{{
    1717#!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")
     18point.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")
    1927}}}
    2028
     
    7785ens.mean <- colMeans(point.cfs$Data)
    7886dates <- 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))
     87plot(dates, ens.mean, ylim = range(point.cfs$Data),
     88     type = 'n', ylab = "tas - Daily Mean", xlab = "time")
     89polygon(x = c(dates, rev(dates)),
     90        y = c(quartiles[1, ], rev(quartiles[2, ])),
     91        border = "transparent", col = rgb(0,0,1,.4))
    8192lines(dates, ens.mean)
    8293}}}
     
    90101{{{
    91102#!text/R
    92 point.wfdei <- loadECOMS(dataset = "WFDEI", var = "tas", lonLim = -3.7, latLim = 40.4, season = 6:8, years = 2001, time = "DD")
     103point.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")
    93110print(object.size(point.wfdei)) # 13704 bytes
    94111}}}