-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathUCLA-ASD_Integrated_PatherGeneList.R
More file actions
29 lines (24 loc) · 1.44 KB
/
UCLA-ASD_Integrated_PatherGeneList.R
File metadata and controls
29 lines (24 loc) · 1.44 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
Ast <- read.table("/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-FDR_Ast.txt")
Ast_genes <- row.names(Ast)
print(Ast_genes)
write.table(Ast_genes, "/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-genelist_Ast.txt", row.names=F)
Ex <- read.table("/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-FDR_Ex.txt")
Ex_genes <- row.names(Ex)
print(Ex_genes)
write.table(Ex_genes, "/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-genelist_Ex.txt", row.names=F)
In <- read.table("/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-FDR_In.txt")
In_genes <- row.names(In)
print(In_genes)
write.table(In_genes, "/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-genelist_In.txt", row.names=F)
Mic <- read.table("/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-FDR_Mic.txt")
Mic_genes <- row.names(Mic)
print(Mic_genes)
write.table(Mic_genes, "/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-genelist_Mic.txt", row.names=F)
Oli <- read.table("/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-FDR_Oli.txt")
Oli_genes <- row.names(Oli)
print(Oli_genes)
write.table(Oli_genes, "/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-genelist_Oli.txt", row.names=F)
OPC <- read.table("/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-FDR_OPC.txt")
OPC_genes <- row.names(OPC)
print(OPC_genes)
write.table(OPC_genes, "/data/rusers/sheddn/UCLA-ASD/plots/DEG-nomito/BA4.6_DEGs-genelist_OPC.txt", row.names=F)