Bug fixes :

- when class(model[[i]]$coord[,PC]) == "numeric"
- when class(.cos2) == "numeric"