datos cualitativos
datos <- c(‘Javier’, ’Rub