# load and prepare data
data(winddata)
set40 <- createSet(height=40, v.avg=winddata[,2], v.std=winddata[,5])
set30 <- createSet(height=30, v.avg=winddata[,6], v.std=winddata[,9])
set20 <- createSet(height=20, v.avg=winddata[,10], v.std=winddata[,13])
ts <- formatTS(winddata[,1])
neubuerg <- createMast(time.stamp=ts, loc=NULL, desc=NULL,
set40, set30, set20)
neubuerg <- clean(neubuerg)
# plot
plotTurbIEC(neubuerg, set=1)
# customize bars
plotTurbIEC(neubuerg, set=1, col="gray", border="black", space=0.6,
cex=1.2)
plotTurbIEC(neubuerg, set=2, col="brown", border="brown", space=0.1)
# customize lines
plotTurbIEC(neubuerg, set=1, line="darkgreen", lty="dashed", lwd=0.5:2.5)
plotTurbIEC(neubuerg, set=2, line=c(3,4,2), lty=c(3,2,1), lwd=2, cex=0.8)
Run the code above in your browser using DataLab