colnames(result) <- colnames(tgen)
row.names(result) <- rownames(tgen)
write.table(result, file = "%s", sep='\\t', col.names = NA)
colnames(result) <- colnames(tgen)
row.names(result) <- rownames(tgen)
write.table(result, file = "%s", sep='\\t', col.names = NA)