Description Usage Arguments Value Author(s) Examples
Requires a data table with a column named "chromosome_name" housing the chromosome names in a numerical format only. substitutes the numeric chromosome values for those in the following format" chr1, chr2, chr3, ect... for use in the getSeq() function.
1 | ChromLabel(DT)
|
DT |
a data table with a column named "chromosome_name" housing the chromosome names in a numerical format only. |
A data table containing substituted numeric chromosome values for those in the following format" chr1, chr2, chr3, ect... for use in the getSeq() function.
Brendan Gongol
1 2 3 4 5 6 7 8 9 10 11 | Sequence <- c("AAGCTAAGCTAAGCTGCGCAATTTTTGTATTTTGTTTAAACAGAATCCTCAAGGGAACATCATCCTCAGTTCTTTTTGTGTATTAGCTCAGATTTTCCAGCTGTTTTTAAAGCT",
"CTGTTTCGAGCCTGAATCTCGATCGCTCGCGCTAGACAGCTCGACGCACTTTTCAGCAGGAGCCTG",
"TCAGCAGATAGCGCTCGATACAGCTCGACAGCTCTTGCTGTATTGTGTG",
"TTGCTGTATTGTGTGATCCTCGATACAGGTATTTTCTGAGCCTGATAGCTAGCTTTGCTGTATTGTGTG",
"AAAAAATTTTTTCCCCCCGGGGGG")
gene_symbol <- c("AKT", "PI3K", "SREBP", "FOXO", "ABCA1")
chromosome_name <- c("1", "5", "10", "X", "Y")
chromo <- data.frame(cbind(Sequence, gene_symbol, chromosome_name))
chromo$Sequence <- as.character(chromo$Sequence)
chromo$chromosome_name <- as.character(chromo$chromosome_name)
ChromLabel(chromo)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.