#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