if (FALSE) {
names(DataFelids$statefel)->nams.fel
nams.fel[c(19,12,37,80,43)]<-c("Puma_yagouaroundi","Felis_manul","Catopuma",
"Pseudaelurus","Panthera_zdansky")
nams<-nams.fel[-81]
namesCompare(nams,names(DataFelids$statefel))->nc1
namesCompare(names(DataFelids$statefel),nams)->nc2
}
Run the code above in your browser using DataLab