Recreé su trama con datos de http://hawaii.gov/dbedt/ert/winddata/krab0192.txt (tomé las 1200 mediciones). Obtuve un ajuste decente de los datos, generalmente usando su código:
library(lmom)
daten <- read.delim("wind.txt")
wind.avg <- na.omit(as.numeric(daten[,"X12"]))
wind.moments<-samlmu(wind.avg)
moments<-pelwei(wind.moments)
x.wei<-rweibull(n=length(wind.avg), shape=moments["delta"], scale=moments["beta"])
hist(as.numeric(wind.avg), freq=FALSE)
lines(density(x.wei), col="red", lwd=4)
Lo siento, no estoy seguro de cuál podría ser su problema, pero creo que debería poder adaptar weibull a sus datos. Lo que me hace sospechar es la curva de campana de su diagrama de densidad, no tengo idea de dónde vino eso.
Aquí están los momentos que generé:
wind.moments
l_1 l_2 t_3 t_4
15.17287544 4.80372580 0.14963501 0.06954438
momentos
zeta beta delta
0.516201 16.454233 1.745413
WTR a la producción anual: supongo que generaría valores discretos para la función de densidad de probabilidad, multiplicaría estos valores con la función de salida y lo resumiría. Alternativamente, puede usar sus datos en bruto, multiplicar los valores con la función de salida, resumirlos y calcular el promedio anual, debe controlar la estacionalidad de una manera adecuada (por ejemplo, asegúrese de usar años enteros o de ponderar en consecuencia) .
Aquí está la salida no controlada (usando la fórmula de http://www.articlesbase.com/diy-articles/determining-wind-turbine-annual-power-output-a-simple-formula-based-upon-blade-diameter- y-velocidad-media-del-viento-en-su-ubicación-513080.html )
years <- length(wind.avg)/365
diameter <- 150
Power = (0.01328*diameter^2)*((wind.avg)^3)
(annual.power <- sum(Power)/years)
[1] 791828306