# load and prepare data
data(winddata)
set1 <- createSet(height=40, v.avg=winddata[,2], v.std=winddata[,5],
dir.avg=winddata[,14])
set2 <- createSet(height=30, v.avg=winddata[,6], v.std=winddata[,9],
dir.avg=winddata[,16])
ts <- formatTS(time.stamp=winddata[,1])
neubuerg <- createMast(time.stamp=ts, set1, set2)
neubuerg <- clean(mast=neubuerg)
# calculate aep
nb.wp <- profile(mast=neubuerg, v.set=c(1,2), dir.set=1,
print=FALSE)
pw.56 <- readPC(file="PowerWind_56_900kW.wtg")
nb.aep <- aep(profile=nb.wp, pc=pw.56, hub.h=71, print=FALSE)
# calculate uncertainty
uncertainty(nb.aep, uc.values=c(5,10,5,5),
uc.names=c("Wind Measurement Mast", "Long Term Correlation",
"Flow Model", "Power Curve"))
# unnamed uncertainty components
uncertainty(nb.aep, uc.values=c(5,10,5,5),
uc.names=NULL)
# new name for combined uncertainty
uncertainty(nb.aep, uc.values=c(5,10,5,5),
uc.names=c("Wind Measurement Mast", "Long Term Correlation",
"Flow Model", "Power Curve", "Total Uncertainty"))
# changed probability values
uncertainty(nb.aep, uc.values=c(5,10,5,5),
uc.names=c("Wind Measurement Mast", "Long Term Correlation",
"Flow Model", "Power Curve"), prob=seq(50,90,10))
# change number of digits and hide results
uncertainty(nb.aep, uc.values=c(5,10,5,5),
uc.names=c("Wind Measurement Mast", "Long Term Correlation",
"Flow Model", "Power Curve"), digits=c(1,2), print=FALSE)
Run the code above in your browser using DataLab