# load data, prepare sets and time stamp
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(time.stamp=winddata[,1])
# create met mast object
neubuerg <- createMast(time.stamp=ts, set40, set30, set20)
# create met mast with location and description
neubuerg.2 <- createMast(time.stamp=ts, set40, set30, set20,
loc=c(49.8909,11.4017), desc="Site #247 - Neubuerg")
# view structure of met mast
str(neubuerg.2)
# name sets
neubuerg.3 <- createMast(time.stamp=ts, C1.A1=set40, C2.A2=set30,
C3=set20, loc=c(49.8909,11.4017), desc="Site #247 - Neubuerg")
# compare names
names(neubuerg.2$sets) # default names
names(neubuerg.3$sets)
Run the code above in your browser using DataLab