Ich muss über einen Loop die Windrichtung bestimmen.
Ich habs wenigstens schon geschafft für die erste Spalte die Rechnung durchlaufen zu lassen, allerdings soll das für insgesamt 60 Spalten funktionieren. Und da ist der Punkt an dem ich hänge.. Kann mir jemand von euch vllt. helfen?
Die Daten kommen aus zwei Tabellen (UData005, VData005)
Code: Alles auswählen
new005 <- list()
for (i in 1:42) {
alpha005 <- (atan(abs(UData005[i,1])/abs(VData005[i,1])))*(180/pi)
if(is.na(UData005[i,1]) || is.na(VData005[i,1])){
new005[i] <- NA
} else {
if(UData005[i,1] >= 0 && VData005[i,1] >= 0){
new005[i] <- alpha005+180
} else {
if(UData005[i,1] >= 0 && VData005[i,1] < 0){
new005[i] <- (180-alpha005) +180
} else {
if (UData005[i,1] < 0 && VData005[i,1] >= 0){
new005[i] <- (360-alpha005)-180
} else {
if(UData005[i,1] < 0 && VData005[i,1] < 0){
new005[i] <- (180+alpha005)-180
}
}
}
}
}
}