if (FALSE) {
#Vector transformation
status <- sample(c("EN","VU", "NT", "CR", "DD", "LC", "EX"),
30, replace = TRUE)
transV <- lets.iucncont(status)
#matrix transformation
data(IUCN)
transM <- lets.iucncont(IUCN)
}
Run the code above in your browser using DataLab