# 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(time.stamp=winddata[,1])
neubuerg <- createMast(time.stamp=ts, set40=set40, set30=set30,
set20=set20, loc=c(49.8909,11.4017), desc="Site #247 - Neubuerg")
neubuerg.wp <- profile(mast=neubuerg, v.set=c(1,2), dir.set=1, print=FALSE)
pw.56 <- readPC(file=system.file(package="bReeze", "powercurves",
"PowerWind_56_900kW.wtg"))
neubuerg.aep <- aep(profile=neubuerg.wp, pc=pw.56, hub.h=71, print=FALSE)
# print met masts
printObject(object=neubuerg)
# for met masts a list is returned
neubuerg.detail <- printObject(object=neubuerg)
neubuerg.detail
# print wind profile
printObject(object=neubuerg.wp)
# print power curve
printObject(object=pw.56)
# print annual energy production
printObject(object=neubuerg.aep)
Run the code above in your browser using DataLab