path <- system.file("extdata","primate-example.data.csv", package="mmodely")
gs.tab <- read.csv(path, row.names=1)
gs.tab$gn_sp <- rownames(gs.tab)
gs.check(genus.species=gs.tab$gn_sp, sep='[ _\\.]')
Run the code above in your browser using DataLab