# \donttest{
mytaxo <- data.frame("id" = c(1,2,3,4,5,6,7),
"canonical" = c("Hypochlorosis ancharia",
"Hypochlorosis tenebrosa",
"Pseudonotis humboldti",
"Myrina ancharia",
"Hypochlorosis ancharia tenebrosa",
"Hypochlorosis ancharia obiana",
"Hypochlorosis lorquinii"),
"family" = c("Lycaenidae", "Lycaenidae", "Lycaenidae",
"Lycaenidae", "Lycaenidae", "Lycaenidae",
"Lycaenidae"),
"accid" = c(0,1,1,1,0,0,0),
"source" = c("itis","itis","wiki","wiki","itis",
"itis","itis"),
stringsAsFactors = FALSE)
mysynlst <- taxo2DwC(mytaxo)
# }
Run the code above in your browser using DataLab