Помогите перевести код SAS для Р
Привет,
Я работаю над анализом опроса и нашел код SAS, который создает то, что я хочу сделать, но у меня нет SAS. Может ли кто-нибудь помочь мне перевести этот код на R
Метка SUSCEP = 'индекс восприимчивости';
если &CR7SUSCEP.=1, то сделайте;
если &CR12SUSCEP. В (2,3,4,5,6,7) тогда SUSCEP=3; *экспериментатор;
если &CR12SUSCEP.=8, то SUSCEP=4; *установлено;
конец;
В противном случае, если &CR7SUSCEP.=2, то сделайте;
если &CR8SUSCEP.=4 и &CR9SUSCEP=3 и &CR10SUSCEP=4, то SUSCEP=1;
*невосприимчивы, никогда не курят.;
else SUSCEP=2; *восприимчивый никогда не курильщик;
если &амп;CR8SUSCEP.=. И &CR9SUSCEP.=. И &CR10SUSCEP.=. Затем SUSCEP=.;
конец;
Что я уже пробовал:
yts_ms &ЛТ;- мутировать(yts_ms, suscep = как.фактор(оператору ifelse(&ампер;CR7SUSCEP == 1, оператору ifelse(&ампер;CR12SUSCEP %в% 2:7, 3, оператору ifelse(&ампер;CR12SUSCEP == 8, 4)))))
Это все, что я мог сделать, и я не уверен, что это правильно. Я не мог понять, как перевести else if &CR7SUSCEP.==2 часть кода.