R/save_as_tsv.R

In massiveGST: Competitive Gene Sets Test with the Mann-Whitney-Wilcoxon Test

Defines functions save_as_tsv

Documented in save_as_tsv

save_as_tsv <-
function(x, file_name = "massiveGST.tsv", sep = "\t", ...) {
  x$gene_set <- rownames(x)
  x <- cbind(x[,ncol(x)], x[, -ncol(x)])
  colnames(x)[1] <- "gene set"
  write.table(x, file = file_name, sep = sep, quote = FALSE, row.names = FALSE)
  invisible(NULL)
}

Try the massiveGST package in your browser