-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathConf.R
More file actions
executable file
·37 lines (29 loc) · 1.99 KB
/
Copy pathConf.R
File metadata and controls
executable file
·37 lines (29 loc) · 1.99 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
peptideFileName="peptides.txt"
tempFileDir="./DATA/"
TissueNames = c("Adrenal", "Appendices", "Brain", "Colon", "Duodenum", "Endometrium", "Esophagus", "Fallopiantube", "Fat", "Gallbladder", "Heart", "Kidney", "Liver", "Lung", "Lymphnode", "Ovary", "Pancreas", "Placenta","Prostate", "Rectum", "Salivarygland", "Smallintestine", "Smoothmuscle", "Spleen", "Stomach", "Testis", "Thyroid", "Tonsil", "Urinarybladder")
TissueNamesPrint = c("Adrenal gland", "Appendix", "Brain", "Colon", "Duodenum", "Endometrium", "Esophagus", "Fallopian tube", "Fat", "Gallbladder", "Heart", "Kidney", "Liver", "Lung", "Lymph node", "Ovary", "Pancreas", "Placenta","Prostate", "Rectum", "Salivary gland", "Small intestine", "Smooth muscle", "Spleen", "Stomach", "Testis", "Thyroid", "Tonsil", "Urinary bladder")
annotationFileName=paste0(tempFileDir,"/Homo_sapiens.GRCh38.83.gtf")
motifDB <- data.frame(read.csv(paste0(tempFileDir,"motifDB.csv")), stringsAsFactors = F)
mRNARegions <- c("UTR3","UTR5","CDS")
AA_motifs=c("KRR","NS")
CDS_CtermAAMotifs=c("CG")
stopCodons=c("TAG", "TAA", "TGA")
## Dynamic range for RNA and proteins
Dynamic_Range = c(0.1, 0.9)
ColSequential="PuRd"
ColDiverging="PiYG"
ColPink="#fde0ef"
ColLight="#e6f5d0"
panelSpacingUnit = 0.5
LABFCTDIR="/Users/basak/WORKSPACE/gagneurlab_shared/r/"
fontFamily="Helvetica"
GoDir="/Users/basak/WORKSPACE/gagneurlab_shared/GO/"
tmpnull= sapply(list.files(file.path(LABFCTDIR,'/plotters/'), full.names = T), source)
tmpnull= sapply(list.files(file.path(LABFCTDIR,'/knitr_helper/'), full.names = T), source)
tmpnull= sapply(list.files(file.path(LABFCTDIR,'/go_enrichment/'), full.names = T), source)
tmpnull= sapply(list.files(file.path(LABFCTDIR,'/disease/'), full.names = T), source)
MGSA_GO_FULL <- load_mgsaset_for_organism(organism='human', folderPath=GoDir)
featureCols <- data.frame(read.csv(paste0(tempFileDir,
"FeatureColors.csv"), sep = ","),
stringsAsFactors = F)
rownames(featureCols) <- featureCols$FeatureID