acab174
76 lines (63 sloc) 2.69 KB
knitr::opts_chunk$set(echo = TRUE)
chrNgeneC.txt chr N X
Y C
fl <- c("chr1geneC1orf49.txt","chr1geneAMPD2.txt",
"chr2geneCOL4A4.txt","chr2geneHADHB.txt",
"chrXgeneCXorf49.txt")
print(fl)
findChrFiles()
fl cnum <-
c(as.character(1:22),"X","Y")
cnum
findChrFiles(fl,"2") findChrFiles(fl,"x")
findGeneNames()
str_extract() geneC.txt
.txt findGeneNames(findChrFiles(fl,"X"))
readORF() cnum
orf read.table()
readORF() findChrFiles() findGeneNames()
write.table(matrix(1:9,3,3),file="chr1geneC1orf49.txt") readORF(fl,"1")
readORF(fl,"100")