Changes between Version 6 and Version 7 of udg/ecoms/RPackage/examples/pointSelection


Ignore:
Timestamp:
Jul 9, 2014 4:53:14 PM (7 years ago)
Author:
dfrias
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • udg/ecoms/RPackage/examples/pointSelection

    v6 v7  
    2828> quartiles <- apply(point.cfs$Data, MARGIN = 1, FUN = quantile, probs = c(.25,.75))
    2929> ens.mean <- rowMeans(point.cfs$Data)
    30 > dates <- point.cfs$Dates$start
     30> dates <- as.POSIXlt(point.cfs$Dates$start, tz="GMT")
    3131> plot(dates, ens.mean, ylim = range(point.cfs$Data), ty = 'n', ylab = "tas - Daily Mean", xlab = "time")
    3232> polygon(x = c(dates, rev(dates)), y = c(quartiles[1, ], rev(quartiles[2, ])), border = "transparent", col = rgb(0,0,1,.4))