# load example data
data(winddata)
# create two datasets
set40 <- createSet(height=40, v.avg=winddata[,2], v.std=winddata[,5],
dir.avg=winddata[,14])
set30 <- createSet(height=30, v.avg=winddata[,6], v.std=winddata[,9],
dir.avg=winddata[,16])
# format time stamp
ts <- formatTS(winddata[,1])
# create met mast object
metmast <- createMast(time.stamp=ts, loc=NULL,
desc=NULL, set40=set40, set30=set30)
# plot time series of met mast signals
plotTimeSeries(metmast)
Run the code above in your browser using DataLab