Odtworzyłem twoją fabułę na podstawie danych z http://hawaii.gov/dbedt/ert/winddata/krab0192.txt (wykonałem 1200 pomiarów). Dostałem porządne dopasowanie danych, ogólnie używając twojego kodu:
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)

Przepraszam, nie jestem pewien, czy twój problem może być, ale myślę, że powinieneś być w stanie dopasować weibull do swoich danych. To, co mnie podejrzewa, to krzywa dzwonowa twojego wykresu gęstości, nie mam pojęcia, skąd to się wzięło.
Oto momenty, które wygenerowałem:
wiatr. chwile
l_1 l_2 t_3 t_4
15.17287544 4.80372580 0.14963501 0.06954438
chwile
zeta beta delta
0.516201 16.454233 1.745413
WTR do rocznej produkcji: Przypuszczam, że wygenerowałbym wartości dyskretne dla funkcji gęstości prawdopodobieństwa, pomnożyłem te wartości przez funkcję produkcji i zsumowałem. Alternatywnie, możesz po prostu użyć swoich surowych danych, pomnożyć wartości przez funkcję wyjściową, zsumować je i obliczyć średnią roczną, powinieneś kontrolować sezonowość w odpowiedni sposób (np. Upewnij się, że używasz całych lat lub odpowiednio ważą) .
Oto niekontrolowane dane wyjściowe (przy użyciu wzoru z http://www.articlesbase.com/diy-articles/determining-wind-turbine-annual-power-output-a-simple-formula-based-upon-blade-diameter- i -średnia prędkość wiatru-w-twojej-lokalizacji-513080.html )
years <- length(wind.avg)/365
diameter <- 150
Power = (0.01328*diameter^2)*((wind.avg)^3)
(annual.power <- sum(Power)/years)
[1] 791828306