Changes between Version 6 and Version 7 of udg/ecoms/RPackage/examples/pointSelection
- Timestamp:
- Jul 9, 2014 4:53:14 PM (8 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
udg/ecoms/RPackage/examples/pointSelection
v6 v7 28 28 > quartiles <- apply(point.cfs$Data, MARGIN = 1, FUN = quantile, probs = c(.25,.75)) 29 29 > ens.mean <- rowMeans(point.cfs$Data) 30 > dates <- point.cfs$Dates$start30 > dates <- as.POSIXlt(point.cfs$Dates$start, tz="GMT") 31 31 > plot(dates, ens.mean, ylim = range(point.cfs$Data), ty = 'n', ylab = "tas - Daily Mean", xlab = "time") 32 32 > polygon(x = c(dates, rev(dates)), y = c(quartiles[1, ], rev(quartiles[2, ])), border = "transparent", col = rgb(0,0,1,.4))