# load and prepare data
data(winddata)
set40 <- createSet(height=40, v.avg=winddata[,2], dir.avg=winddata[,14])
set30 <- createSet(height=30, v.avg=winddata[,6], dir.avg=winddata[,16])
set20 <- createSet(height=20, v.avg=winddata[,10])
ts <- formatTS(winddata[,1])
neubuerg <- createMast(time.stamp=ts, loc=NULL, desc=NULL,
set40, set30, set20)
neubuerg <- clean(neubuerg)
# plot all datasets
plotDay(neubuerg, signal="v")
plotDay(neubuerg, signal="dir")
# plot one dataset
plotDay(neubuerg, set=1, signal="v")
plotDay(neubuerg, set=2, signal="dir")
# customize plot
plotDay(neubuerg, set=2, signal="v",
col=1, lwd=2.5, cex=1.5)
plotDay(neubuerg, signal="dir",
col="brown", lwd=3, lty=c(2,3))
plotDay(neubuerg, signal="dir",
col=c("darkgray", "lightgray"), lwd=c(3,2), lty=3)
Run the code above in your browser using DataLab