Структура управления условным типом

Question

Я новичок в R, поэтому ваша помощь будет оценена по достоинству.

Задача. Чтобы ознакомиться с использованием структур управления условными типами, измените код из регрессии Пуассона для преобразования зависимой переменной (num_awards), выражая ее в двоичных выражениях (1/0 или отсутствие в наличии).

data <- read.csv ('poisson_sim.csv', header = TRUE)
#extracted the column 2 in which we can find num_awards
num_awards <- data [, 2]
num_awards

Я пытался с этим:

if(any (num_awards < 1)) {
  print(0) 
} else { 
  print() 
} 

Но я получаю ошибку:

Warning message:
In if (num_awards < 1) { :
  the condition has length > 1 and only the first element will be used>

И это модель Пуассона:

model <- glm (num_awards ~ math + prog, family = poisson, data = data)
model

Я новичок в этом и пытался в течение нескольких дней ... Спасибо!