Hello
I am receiving an error when typing this code. What could be the problem, please?

BMI <- medicaldata::smartpill %>%
 as_tibble() %>%
 select(Weight, Height) %>%
 mutate(BMI = calc_bmi(Weight, Height)) %>% 
 head(20) %>% 
 select(BMI) 

for (bmi in BMI) {
  if (bmi < 18.5) {
   print(paste(bmi, “is underweight”))
  }
  else if (bmi>=18.5 & bmi < 25) {
   print(paste(bmi, “is normal BMI”))
  }
  else if (bmi >= 25 & bmi < 30) {
   print(paste(bmi, “is overweight”))
  }
  else {
   print(paste(bmi, “is obese”))
  }
 }