# load and prepare data
data(winddata)
set40 <- createSet(height=40, v.avg=winddata[,2], v.max=winddata[,3])
set30 <- createSet(height=30, v.avg=winddata[,6], v.max=winddata[,7])
set20 <- createSet(height=20, v.avg=winddata[,10])
ts <- formatTS(time.stamp=winddata[,1])
neubuerg <- createMast(time.stamp=ts, set40, set30, set20)
neubuerg <- clean(mast=neubuerg)
# calculate monthly means
neubuerg.stats <- monthStats(mast=neubuerg)
# calculate monthly means for one dataset
monthStats(mast=neubuerg, set=1)
monthStats(mast=neubuerg, set="set1") # same as above
# calculate monthly means for another signal
monthStats(mast=neubuerg, signal="v.max")
# calculate monthly median, min, max and standard deviation
monthStats(mast=neubuerg, fun="median")
monthStats(mast=neubuerg, fun="min")
monthStats(mast=neubuerg, fun="max")
monthStats(mast=neubuerg, fun="sd")
# data subsets
monthStats(mast=neubuerg,
subset=c("2009-12-01 00:10:00", "2009-12-31 23:50:00"))
monthStats(mast=neubuerg,
subset=c("2010-01-01 00:10:00", NA)) # just 'start' time stamp
monthStats(mast=neubuerg,
subset=c(NA, "2009-12-31 23:50:00")) # just 'end' time stamp
# change number of digits and hide results
monthStats(mast=neubuerg, digits=2)
monthStats(mast=neubuerg, print=FALSE)
Run the code above in your browser using DataLab