Deutsches R-Forum

Hallo zusammen,

ich habe einen Datensatz mit 3 Spalten (A bis C), die jeweils die Ausprägungen "0" und "1" haben, je nachdem, ob sie ein bestimmtes Merkmal haben, ähnlich wie eine Indexfunktion. Ich will nun ein Scoring System programmieren. D.h. für jede Null, die in einer Zeile steht, gibt es keinen Punkt, wenn eine 1 drinnen steht, gibt es einen Punkt, AUSGENOMMEN Spalte C, dort bedeutet eine 0, dass man 2 Punkte erhält, und 1, dass man -2 Punkte erhält.
A | B | C
1 | 1| 0

ergibt somit 1+1+2 =4 Punkte.

Mein Code:
In Spalte 5 kommt das Scoring

alpha <- length(Data[,1]) # Anzahl Zeilen
gamma <- length(Data[1,]) # Anzahl Spalten
beta <- 0
i <- 2
Data$score <- 0
while (i <= alpha){
if (Data[i,1] =="1" || Data[i,2] =="1") {
Data[i,5] <- beta +1 }
else if (Data[i,3]=="0") {
Data[i,5] <- beta +2 }
else if (Data[i,3]=="1" ) {
Data[i,14] <- beta -2 }

Data[i,gamma]

i <- i+1 }

Mit den if´s und else if´s haut es noch nicht hin, sobald das erste if erfüllt ist, überspringt der Code die anderen (else) if´s.

Wie kann ich mehrere Ausprägungen überprüfen (Keine Fallunterscheidung, sondern die Spalten einzeln nach Ausprägung untersuchen)?

Viele Grüße

"Scoring System" hört sich etwas hochtrabend an

danke schön