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