Условное вычисление уравнения в новом столбце

Question

У меня 2 уравнения. На основе SEX изменяется значение данных $ CB. Пожалуйста, проверьте правильность условного l oop, поскольку оно не работает.

if (data $ SEX == 1) {data $ CB = (140-data $ AGE) * data $ WT / ( data $ CRCL * 72)}

else if (data $ SEX == 0) {data $ CB = (140-data $ AGE) * data $ WT / (data $ CRCL * 72) * 0.85}

Answer 1

Вы хотите использовать команду ifelse, например,

data$CB<-ifelse(data$SEX==1, 140-data$AGE)*data$WT/(data$CRCL*72), 140-data$AGE)*data$WT/(data$CRCL*72)*0.85)

Это будет проверять каждую строку в data, и если SEX==1, она выполнит первую часть ( после первой запятой), и если оно ложно, то выполнит часть после второй запятой.