Etapa 2_bloque4_ejercicio 2

Buenas tardes,
Adjunto actividad 2 del bloque 4.
https://drive.google.com/file/d/1aAS1uT4Dj-gbctWzw-m_lxNysVMfyILR/view?usp=sharing

Saludos,

PD: HE tenido el siguiente problema con R al ejecutar este código:
> varNum <- as.numeric(unlist(datos[,8]))
> NHDq <- cut(varNum,breaks = c(0,1,2),labels = c(«Ninguna»,»Una»,»Dos»))
Error in cut.default(varNum, breaks = c(0, 1, 2), labels = c(«Ninguna», :
lengths of ‘breaks’ and ‘labels’ differ

Pero no veo que exista una diferencia entre los breaks y los labels.
Sabeis que puede ser, estoy empezando a dudar si tengo Rstudio correctamente instalado en Mac, pero me da terror reinstalarlo que la última vez estuve 3 horas para volver a poner.