Also werden wir wohl das with() auflösen und qualifizierte Namen verwenden:
Code: Alles auswählen
Tabelle.OCAI$POfitvor <- NA
i <- Tabelle.OCAI$domCul == "A"; Tabelle.OCAI$POfitvor[i] <- Tabelle.OCAI$OCAIA[i]
i <- Tabelle.OCAI$domCul == "B"; Tabelle.OCAI$POfitvor[i] <- Tabelle.OCAI$OCAIB[i]
i <- Tabelle.OCAI$domCul == "C"; Tabelle.OCAI$POfitvor[i] <- Tabelle.OCAI$OCAIC[i]
i <- Tabelle.OCAI$domCul == "D"; Tabelle.OCAI$POfitvor[i] <- Tabelle.OCAI$OCAID[i]
rm(i)
p.s.:
aber Deinen Workspace hast Du Dir trotzdem schon gut zugekachelt.