Создать новую числовую переменную на основе условия

Question

Я пытаюсь создать новую переменную, которая состоит из веса пациента в кг на момент посещения 1, но у меня возникли проблемы с логикой. Я попробовал следующий код, но не повезло

WL_A <- function(visitnum, Weight_KG) {
  if (visitnum == 1)
    return(Weight_KG)
}

Данные

structure(list(Sid = structure(1:5, .Label = c("A", "B", "C", 
"D", "E"), class = "factor"), Weight_KG = c(100L, 500L, 70L, 
90L, 82L), visitnum = c(1L, 2L, 1L, 1L, 12L), BMI = c(13L, 25L, 
20L, 18L, 7L)), .Names = c("Sid", "Weight_KG", "visitnum", "BMI"
), class = "data.frame", row.names = c("1", "2", "3", "4", "5"))