Changes between Initial Version and Version 1 of udg/ecoms/RPackage/examples/pointSelection


Ignore:
Timestamp:
Feb 20, 2014 9:31:25 AM (8 years ago)
Author:
juaco
Comment:

--

Legend:

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

    v1 v1  
     1= EXAMPLE 1: Loading and plotting various members
     2
     3Total precipitation at the Gulf of Guinea for January 2010 forecasted in October 2009 (lead month 3) by the System4 model (seasonal range, 15 members) is next represented for each member, using the `spplot` method for the `SpatialGridDataFrame` class of library `sp`:
     4
     5Data are loaded by introducing the required values for dataset, spatio-temporal window and lead month definition. Note that the argument `members` is omitted, which means that by default all available members (15 in this case, will be returned).
     6
     7{{{
     8gg.pr <- loadSeasonalForecast("System4_seasonal_15", var="tp", lonLim=c(-30,20), latLim=c(-12,15), season=1, years=2010, leadMonth=3)
     9}}}
     10
     11Next, total accumulated precipitation is computed for each grid point, and a `SpatialGridDataFrame` is created:
     12
     13{{{
     14df <- sapply(gg.pr$MemberData, colSums)
     15sgdf <- SpatialGridDataFrame(gg.pr$LonLatCoords, as.data.frame(df))
     16spplot(sgdf, scales=list(draw=TRUE), col.regions=rev(terrain.colors(50)), at=seq(0,ceiling(max(sgdf@data)),10))
     17}}}
     18
     19[[Image(GulfOfGuinea15members.png)]]
     20
     21It is often useful to have a world map as a backdrop for visual reference. The dataset `world_map` is built-in in the `ecomsUDG.Raccess` package:
     22
     23{{{
     24data(world_map)
     25wl <- as(world_map, "SpatialLines")
     26l1 <- list("sp.lines", wl)
     27}}}
     28
     29For the visualization of a subset of members we use the `zcol` argument. For instance, members 4, 9, 13 and 14 yield a high precipitation forecast in the southern region:
     30
     31{{{
     32spplot(sgdf, zcol=c(4,9,13,14), scales=list(draw=TRUE), col.regions=rev(terrain.colors(50)), at=seq(0, ceiling(max(sgdf@data)),10), sp.layout=list(l1))
     33}}}
     34
     35[[Image(GulfOfGuineaSubsetMember.png)]]