library(WGCNA)

var.comp.flat.file = '/Volumes/data/martha/Networks/Data/MAGIC_VarComp_gxe_vc-flatfile.txt'
var.comp.flat = read.table(var.comp.flat.file, h = T)
trans.genes = as.vector(var.comp.flat[var.comp.flat$Vtrans >= 0.1, "gene"])