# NOT RUN {
pop <- sample(1:50, 4)
lookup <- data.frame(Subclass=c("Sapindales", "Malvales", "Fabales",
"Fabales"),
Family=c("Burseraceae", "Bombacaceae", "Fabaceae",
"Fabaceae"),
Genus=c("Protium", "Quararibea", "Swartzia",
"Swartzia"),
Species= c("tenuifolium", "asterolepis",
"simplex var.grandiflora",
"simplex var.ochnacea"))
similarity <- similarity_shimatani(pop, lookup)
# }
Run the code above in your browser using DataLab