hatte bereits gefragt, wie ich für meine Aufgabe Symbole extrahieren kann; komme leider auch bei der nächsten aufgabe nicht weiter.
Eine Firma bietet Produkte zu unterschiedlichen Preisen an. Entweder zahlt die Mutter- oder Tocherfirma.
Der Datensatz hat 8 Spalten: u.a. Mutterfirma ID (Spalte 1), Tochterfirma ID (Spalte 3), das Produkt (Spalte 5), Preis Mutterfirma (Spalte 6), Preis Tochter (Spalte 7) sowie die Währung (USD, EUR...) (Spalte 8).
Für eine Analyse sollen alle Entitäten drinnen bleiben, die kleiner sind, als die Standardbepreisung.
Also z.B. Produkt_A für Kunde 123 ist soll mit 10 EUR abgerechnet werden, wird aber, warum auch immer, mit 8 abgerechnet.
Da es mehrere Währungen gibt (RUB, EUR...), ist die Bepreisung natürlich sehr unterschiedlich (z.B. 5000 RUB, 20 EUR...). D.h. man muss zwischen den Währungen unterscheiden.
Mein Vorgehen: Wenn der Preis größer als der Soll-Preis ist, schmeiße ich ihn einfach raus, dann bleiben nur die kleinen übrig:
Mir zerhaut es jedoch ALLES.Zeilen_Data <- nrow(Data)
i <- 1
while (i <= Zeilen_Data) {
if (Data[i,8] ="EUR" & Data[i,6] > 10 | Data[i,7] > 10) {
Data[i,] <- Data[-i,]
i <- i + 1
} else if (Data[i,8] ="RUB" & (Data[i,6] > 550 | Data[i,7] > 550)) {
Data <- Data[-i,]
i <- i + 1
}
else
i <- i+1
}
Fehlermeldungen (u.a.):
- unexpected '=' in:
- Error: unexpected '}' in " }"
- replacement element 1 has xxx rows to replace 1 rows
und ganz besonders schlimm:
missing value where TRUE/FALSE needed
Kann mir bitte jmd. helfen??