Bug fixes

Hi, 

just a quick bug fix (at least, without it it bugged on my machine) :

- when class(model[[i]]$coord[,PC]) == "numeric"
- when class(.cos2) == "numeric"