3.6 Obteniendo la matriz

X_pred %<>%
  data.frame() %>%
  select(-dam2)  %>%  as.matrix()