if (FALSE) {
# load data
data("winddata", package="bReeze")
# minimal dataset
s <- set(height=40, v.avg=winddata[,2])
# detailed dataset
s2 <- set(height=40, desc=
"C1: cup anemometer (SN: 4.3250.128), A1: wind vane (SN: 4.2800.205)",
v.avg=winddata[,2], v.max=winddata[,3], v.min=winddata[,4],
v.std=winddata[,5], dir.avg=winddata[,14], dir.std=winddata[,15])
}
Run the code above in your browser using DataLab