ich möchte meine Programme gerne weiter automatisieren und steh gerade erneut vor einem Problem.
Ich habe Windmessdaten die phi und lam Koordinaten zugeordnet sind. Aus diesen habe ich mir jetzt die 10 höchsten Windspitzen ausgeben lassen
Code: Alles auswählen
max_boen_50 <- sort(boen, decreasing = TRUE)[1:50]
print(max_boen50)
Code: Alles auswählen
index_boen <- data.frame(name=character(0), len=numeric(0))
for (i in 1:50){
index_boen <- rbind(index_boen, data.frame(which(boen == max_boen50[i], arr.ind=TRUE)))}
df_index_boen <- data.frame(index_boen, max_boen50)
print(df_index_boen)
df_index_boen
lam phi max_boen50
100 1 6 19.186738
1001 1 5 18.931313
1002 1 4 18.702394
1003 1 1 18.548133
...
Code: Alles auswählen
mittelwind[1,6]
Vielen Dank für eure Unterstützung.
Jessi