R Transform

 원래는 다양한 테스트를 해보려고 했는데, 아무래도 R은 많이 사용하지 않으니 익숙하지가 않다. 시간 내서 대량 데이터 핸들링을 해봐야 하는데, 그런 것은 아무래도 데이터를 많이 돌려봐야 할듯 하네.

medicine = c(rep('A', 500), rep('B', 200), rep('C', 300))

test <- data.frame(medicine)

test

help(transform)

test <- transform(test,

                  cure = ifelse(medicine == "A"

                               , 1

                               , ifelse(medicine == "B", -1, 0)))

test