# load and prepare data
data(winddata)
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])
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)
neubuerg.2 <- clean(neubuerg)
neubuerg.3 <- createMast(time.stamp=ts, loc=c(49.8909,11.4017),
desc="Site #247 - Neubuerg", set40=set40, set30=set30, set20=set20)
# view met masts
printMast(neubuerg)
printMast(neubuerg.2)
printMast(neubuerg.3)
# get cleaning info
printMast(neubuerg)$cleaned
printMast(neubuerg.2)$cleaned
Run the code above in your browser using DataLab