> grpsTbl <- read.csv("Orthogroups_3.csv", header=T, sep = "\t", row.names = 1, stringsAsFactors=F)
> dim(grpsTbl)
[1] 5791   13