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)
path.look <- system.file("extdata","primate.taxa.aliases.tab", package="mmodely")
gs.names.mismatch.check(gs.tab, alias.table.path=path.look, gs.clmn='gn_sp')
Run the code above in your browser using DataLab