annotate shm_csr.r @ 39:a24f8c93583a draft

Uploaded
author davidvanzessen
date Thu, 22 Dec 2016 09:39:27 -0500
parents 8d1c4c75f81b
children 1cf60ae234b4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
1 library(data.table)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
2 library(ggplot2)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
3 library(reshape2)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
4
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
5 args <- commandArgs(trailingOnly = TRUE)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
6
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
7 input = args[1]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
8 genes = unlist(strsplit(args[2], ","))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
9 outputdir = args[3]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
10 empty.region.filter = args[4]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
11 setwd(outputdir)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
12
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
13 dat = read.table(input, header=T, sep="\t", fill=T, stringsAsFactors=F)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
14
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
15 if(length(dat$Sequence.ID) == 0){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
16 setwd(outputdir)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
17 result = data.frame(x = rep(0, 5), y = rep(0, 5), z = rep(NA, 5))
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
18 row.names(result) = c("Number of Mutations (%)", "Transition (%)", "Transversions (%)", "Transitions at G C (%)", "Targeting of G C (%)")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
19 write.table(x=result, file="mutations.txt", sep=",",quote=F,row.names=T,col.names=F)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
20 transitionTable = data.frame(A=rep(0, 4),C=rep(0, 4),G=rep(0, 4),T=rep(0, 4))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
21 row.names(transitionTable) = c("A", "C", "G", "T")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
22 transitionTable["A","A"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
23 transitionTable["C","C"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
24 transitionTable["G","G"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
25 transitionTable["T","T"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
26
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
27 write.table(x=transitionTable, file="transitions.txt", sep=",",quote=F,row.names=T,col.names=NA)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
28 cat("0", file="n.txt")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
29 stop("No data")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
30 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
31
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
32 cleanup_columns = c("FR1.IMGT.c.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
33 "FR2.IMGT.g.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
34 "CDR1.IMGT.Nb.of.nucleotides",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
35 "CDR2.IMGT.t.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
36 "FR1.IMGT.c.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
37 "CDR1.IMGT.c.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
38 "FR2.IMGT.a.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
39 "FR2.IMGT.Nb.of.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
40 "FR2.IMGT.g.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
41 "FR2.IMGT.a.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
42 "FR3.IMGT.t.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
43 "FR3.IMGT.t.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
44 "FR2.IMGT.g.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
45 "FR3.IMGT.c.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
46 "FR1.IMGT.Nb.of.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
47 "CDR1.IMGT.g.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
48 "CDR1.IMGT.t.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
49 "CDR1.IMGT.g.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
50 "CDR2.IMGT.Nb.of.nucleotides",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
51 "FR2.IMGT.a.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
52 "CDR1.IMGT.Nb.of.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
53 "CDR3.IMGT.Nb.of.nucleotides",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
54 "CDR1.IMGT.a.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
55 "FR3.IMGT.a.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
56 "FR1.IMGT.g.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
57 "FR3.IMGT.a.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
58 "FR1.IMGT.a.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
59 "CDR2.IMGT.a.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
60 "CDR2.IMGT.Nb.of.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
61 "CDR2.IMGT.g.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
62 "CDR2.IMGT.a.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
63 "CDR1.IMGT.t.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
64 "FR3.IMGT.g.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
65 "FR1.IMGT.g.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
66 "FR3.IMGT.g.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
67 "CDR1.IMGT.a.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
68 "FR1.IMGT.a.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
69 "FR3.IMGT.a.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
70 "FR3.IMGT.Nb.of.nucleotides",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
71 "FR2.IMGT.t.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
72 "CDR2.IMGT.g.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
73 "FR2.IMGT.t.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
74 "CDR1.IMGT.t.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
75 "FR2.IMGT.t.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
76 "FR3.IMGT.t.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
77 "FR2.IMGT.Nb.of.nucleotides",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
78 "FR1.IMGT.t.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
79 "FR1.IMGT.t.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
80 "FR3.IMGT.c.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
81 "FR1.IMGT.t.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
82 "CDR2.IMGT.a.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
83 "FR2.IMGT.c.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
84 "CDR1.IMGT.g.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
85 "CDR2.IMGT.t.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
86 "FR1.IMGT.Nb.of.nucleotides",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
87 "CDR1.IMGT.c.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
88 "CDR2.IMGT.t.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
89 "FR3.IMGT.g.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
90 "CDR1.IMGT.a.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
91 "FR2.IMGT.c.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
92 "FR3.IMGT.Nb.of.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
93 "FR2.IMGT.c.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
94 "CDR2.IMGT.g.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
95 "FR1.IMGT.g.c",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
96 "CDR2.IMGT.c.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
97 "FR3.IMGT.c.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
98 "CDR1.IMGT.c.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
99 "CDR2.IMGT.c.g",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
100 "CDR2.IMGT.c.a",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
101 "FR1.IMGT.c.t",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
102 "FR1.IMGT.Nb.of.silent.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
103 "FR2.IMGT.Nb.of.silent.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
104 "FR3.IMGT.Nb.of.silent.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
105 "FR1.IMGT.Nb.of.nonsilent.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
106 "FR2.IMGT.Nb.of.nonsilent.mutations",
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
107 "FR3.IMGT.Nb.of.nonsilent.mutations")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
108
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
109 print("Cleaning up columns")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
110
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
111 for(col in cleanup_columns){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
112 dat[,col] = gsub("\\(.*\\)", "", dat[,col])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
113 #dat[dat[,col] == "",] = "0"
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
114 dat[,col] = as.numeric(dat[,col])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
115 dat[is.na(dat[,col]),col] = 0
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
116 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
117
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
118 regions = c("FR1", "CDR1", "FR2", "CDR2", "FR3")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
119 if(empty.region.filter == "FR1") {
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
120 regions = c("CDR1", "FR2", "CDR2", "FR3")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
121 } else if (empty.region.filter == "CDR1") {
7
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
122 regions = c("FR2", "CDR2", "FR3")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
123 } else if (empty.region.filter == "FR2") {
7
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
124 regions = c("CDR2", "FR3")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
125 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
126
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
127 sum_by_row = function(x, columns) { sum(as.numeric(x[columns]), na.rm=T) }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
128
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
129 print("aggregating data into new columns")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
130
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
131 VRegionMutations_columns = paste(regions, ".IMGT.Nb.of.mutations", sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
132 dat$VRegionMutations = apply(dat, FUN=sum_by_row, 1, columns=VRegionMutations_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
133
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
134 VRegionNucleotides_columns = paste(regions, ".IMGT.Nb.of.nucleotides", sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
135 dat$FR3.IMGT.Nb.of.nucleotides = nchar(dat$FR3.IMGT.seq)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
136 dat$VRegionNucleotides = apply(dat, FUN=sum_by_row, 1, columns=VRegionNucleotides_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
137
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
138 transitionMutations_columns = paste(rep(regions, each=4), c(".IMGT.a.g", ".IMGT.g.a", ".IMGT.c.t", ".IMGT.t.c"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
139 dat$transitionMutations = apply(dat, FUN=sum_by_row, 1, columns=transitionMutations_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
140
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
141 transversionMutations_columns = paste(rep(regions, each=8), c(".IMGT.a.c",".IMGT.c.a",".IMGT.a.t",".IMGT.t.a",".IMGT.g.c",".IMGT.c.g",".IMGT.g.t",".IMGT.t.g"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
142 dat$transversionMutations = apply(dat, FUN=sum_by_row, 1, columns=transversionMutations_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
143
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
144 transitionMutationsAtGC_columns = paste(rep(regions, each=2), c(".IMGT.g.a",".IMGT.c.t"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
145 dat$transitionMutationsAtGC = apply(dat, FUN=sum_by_row, 1, columns=transitionMutationsAtGC_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
146
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
147 totalMutationsAtGC_columns = paste(rep(regions, each=6), c(".IMGT.c.g",".IMGT.c.t",".IMGT.c.a",".IMGT.g.c",".IMGT.g.a",".IMGT.g.t"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
148 #totalMutationsAtGC_columns = paste(rep(regions, each=6), c(".IMGT.g.a",".IMGT.c.t",".IMGT.c.a",".IMGT.c.g",".IMGT.g.t"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
149 dat$totalMutationsAtGC = apply(dat, FUN=sum_by_row, 1, columns=totalMutationsAtGC_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
150
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
151 transitionMutationsAtAT_columns = paste(rep(regions, each=2), c(".IMGT.a.g",".IMGT.t.c"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
152 dat$transitionMutationsAtAT = apply(dat, FUN=sum_by_row, 1, columns=transitionMutationsAtAT_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
153
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
154 totalMutationsAtAT_columns = paste(rep(regions, each=6), c(".IMGT.a.g",".IMGT.a.c",".IMGT.a.t",".IMGT.t.g",".IMGT.t.c",".IMGT.t.a"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
155 #totalMutationsAtAT_columns = paste(rep(regions, each=5), c(".IMGT.a.g",".IMGT.t.c",".IMGT.a.c",".IMGT.g.c",".IMGT.t.g"), sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
156 dat$totalMutationsAtAT = apply(dat, FUN=sum_by_row, 1, columns=totalMutationsAtAT_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
157
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
158 FRRegions = regions[grepl("FR", regions)]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
159 CDRRegions = regions[grepl("CDR", regions)]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
160
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
161 FR_silentMutations_columns = paste(FRRegions, ".IMGT.Nb.of.silent.mutations", sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
162 dat$silentMutationsFR = apply(dat, FUN=sum_by_row, 1, columns=FR_silentMutations_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
163
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
164 CDR_silentMutations_columns = paste(CDRRegions, ".IMGT.Nb.of.silent.mutations", sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
165 dat$silentMutationsCDR = apply(dat, FUN=sum_by_row, 1, columns=CDR_silentMutations_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
166
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
167 FR_nonSilentMutations_columns = paste(FRRegions, ".IMGT.Nb.of.nonsilent.mutations", sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
168 dat$nonSilentMutationsFR = apply(dat, FUN=sum_by_row, 1, columns=FR_nonSilentMutations_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
169
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
170 CDR_nonSilentMutations_columns = paste(CDRRegions, ".IMGT.Nb.of.nonsilent.mutations", sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
171 dat$nonSilentMutationsCDR = apply(dat, FUN=sum_by_row, 1, columns=CDR_nonSilentMutations_columns)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
172
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
173 mutation.sum.columns = c("Sequence.ID", "VRegionMutations", "VRegionNucleotides", "transitionMutations", "transversionMutations", "transitionMutationsAtGC", "transitionMutationsAtAT", "silentMutationsFR", "nonSilentMutationsFR", "silentMutationsCDR", "nonSilentMutationsCDR")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
174 write.table(dat[,mutation.sum.columns], "mutation_by_id.txt", sep="\t",quote=F,row.names=F,col.names=T)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
175
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
176 setwd(outputdir)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
177
8
3968d04b5724 Uploaded
davidvanzessen
parents: 7
diff changeset
178 write.table(dat, input, sep="\t",quote=F,row.names=F,col.names=T)
3968d04b5724 Uploaded
davidvanzessen
parents: 7
diff changeset
179
24
9955b23db68c Uploaded
davidvanzessen
parents: 23
diff changeset
180 base.order.x = data.frame(base=c("A", "C", "G", "T"), order.x=1:4)
9955b23db68c Uploaded
davidvanzessen
parents: 23
diff changeset
181 base.order.y = data.frame(base=c("T", "G", "C", "A"), order.y=1:4)
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
182
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
183 calculate_result = function(i, gene, dat, matrx, f, fname, name){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
184 tmp = dat[grepl(paste("^", gene, ".*", sep=""), dat$best_match),]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
185
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
186 j = i - 1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
187 x = (j * 3) + 1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
188 y = (j * 3) + 2
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
189 z = (j * 3) + 3
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
190
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
191 if(nrow(tmp) > 0){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
192 if(fname == "sum"){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
193 matrx[1,x] = round(f(tmp$VRegionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
194 matrx[1,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
195 matrx[1,z] = round(f(matrx[1,x] / matrx[1,y]) * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
196 } else {
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
197 matrx[1,x] = round(f(tmp$VRegionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
198 matrx[1,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
199 matrx[1,z] = round(f(tmp$VRegionMutations / tmp$VRegionNucleotides) * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
200 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
201
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
202 matrx[2,x] = round(f(tmp$transitionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
203 matrx[2,y] = round(f(tmp$VRegionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
204 matrx[2,z] = round(matrx[2,x] / matrx[2,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
205
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
206 matrx[3,x] = round(f(tmp$transversionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
207 matrx[3,y] = round(f(tmp$VRegionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
208 matrx[3,z] = round(matrx[3,x] / matrx[3,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
209
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
210 matrx[4,x] = round(f(tmp$transitionMutationsAtGC, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
211 matrx[4,y] = round(f(tmp$totalMutationsAtGC, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
212 matrx[4,z] = round(matrx[4,x] / matrx[4,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
213
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
214 matrx[5,x] = round(f(tmp$totalMutationsAtGC, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
215 matrx[5,y] = round(f(tmp$VRegionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
216 matrx[5,z] = round(matrx[5,x] / matrx[5,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
217
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
218 matrx[6,x] = round(f(tmp$transitionMutationsAtAT, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
219 matrx[6,y] = round(f(tmp$totalMutationsAtAT, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
220 matrx[6,z] = round(matrx[6,x] / matrx[6,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
221
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
222 matrx[7,x] = round(f(tmp$totalMutationsAtAT, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
223 matrx[7,y] = round(f(tmp$VRegionMutations, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
224 matrx[7,z] = round(matrx[7,x] / matrx[7,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
225
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
226 matrx[8,x] = round(f(tmp$nonSilentMutationsFR, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
227 matrx[8,y] = round(f(tmp$silentMutationsFR, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
228 matrx[8,z] = round(matrx[8,x] / matrx[8,y], digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
229
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
230 matrx[9,x] = round(f(tmp$nonSilentMutationsCDR, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
231 matrx[9,y] = round(f(tmp$silentMutationsCDR, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
232 matrx[9,z] = round(matrx[9,x] / matrx[9,y], digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
233
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
234 if(fname == "sum"){
7
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
235
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
236 regions.fr = regions[grepl("FR", regions)]
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
237 regions.fr = paste(regions.fr, ".IMGT.Nb.of.nucleotides", sep="")
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
238 regions.cdr = regions[grepl("CDR", regions)]
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
239 regions.cdr = paste(regions.cdr, ".IMGT.Nb.of.nucleotides", sep="")
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
240
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
241 if(length(regions.fr) > 1){ #in case there is only on FR region (rowSums needs >1 column)
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
242 matrx[10,x] = round(f(rowSums(tmp[,regions.fr], na.rm=T)), digits=1)
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
243 } else {
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
244 matrx[10,x] = round(f(tmp[,regions.fr], na.rm=T), digits=1)
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
245 }
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
246 matrx[10,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
247 matrx[10,z] = round(matrx[10,x] / matrx[10,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
248
7
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
249 if(length(regions.cdr) > 1){ #in case there is only on CDR region
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
250 matrx[11,x] = round(f(rowSums(tmp[,regions.cdr], na.rm=T)), digits=1)
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
251 } else {
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
252 matrx[11,x] = round(f(tmp[,regions.cdr], na.rm=T), digits=1)
ad9be244b104 Uploaded
davidvanzessen
parents: 5
diff changeset
253 }
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
254 matrx[11,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
255 matrx[11,z] = round(matrx[11,x] / matrx[11,y] * 100, digits=1)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
256 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
257 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
258
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
259 transitionTable = data.frame(A=zeros,C=zeros,G=zeros,T=zeros)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
260 row.names(transitionTable) = c("A", "C", "G", "T")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
261 transitionTable["A","A"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
262 transitionTable["C","C"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
263 transitionTable["G","G"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
264 transitionTable["T","T"] = NA
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
265
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
266 if(nrow(tmp) > 0){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
267 for(nt1 in nts){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
268 for(nt2 in nts){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
269 if(nt1 == nt2){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
270 next
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
271 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
272 NT1 = LETTERS[letters == nt1]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
273 NT2 = LETTERS[letters == nt2]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
274 FR1 = paste("FR1.IMGT.", nt1, ".", nt2, sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
275 CDR1 = paste("CDR1.IMGT.", nt1, ".", nt2, sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
276 FR2 = paste("FR2.IMGT.", nt1, ".", nt2, sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
277 CDR2 = paste("CDR2.IMGT.", nt1, ".", nt2, sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
278 FR3 = paste("FR3.IMGT.", nt1, ".", nt2, sep="")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
279 if (empty.region.filter == "leader"){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
280 transitionTable[NT1,NT2] = sum(tmp[,c(FR1, CDR1, FR2, CDR2, FR3)])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
281 } else if (empty.region.filter == "FR1") {
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
282 transitionTable[NT1,NT2] = sum(tmp[,c(CDR1, FR2, CDR2, FR3)])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
283 } else if (empty.region.filter == "CDR1") {
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
284 transitionTable[NT1,NT2] = sum(tmp[,c(FR2, CDR2, FR3)])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
285 } else if (empty.region.filter == "FR2") {
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
286 transitionTable[NT1,NT2] = sum(tmp[,c(CDR2, FR3)])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
287 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
288 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
289 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
290 transition = transitionTable
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
291 transition$id = names(transition)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
292
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
293 transition2 = melt(transition, id.vars="id")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
294
24
9955b23db68c Uploaded
davidvanzessen
parents: 23
diff changeset
295 transition2 = merge(transition2, base.order.x, by.x="id", by.y="base")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
296
24
9955b23db68c Uploaded
davidvanzessen
parents: 23
diff changeset
297 transition2 = merge(transition2, base.order.y, by.x="variable", by.y="base")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
298
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
299 transition2[is.na(transition2$value),]$value = 0
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
300
24
9955b23db68c Uploaded
davidvanzessen
parents: 23
diff changeset
301 if(any(transition2$value != 0)){ #having a transition table filled with 0 is bad
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
302 print("Plotting heatmap and transition")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
303 png(filename=paste("transitions_stacked_", name, ".png", sep=""))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
304 p = ggplot(transition2, aes(factor(reorder(id, order.x)), y=value, fill=factor(reorder(variable, order.y)))) + geom_bar(position="fill", stat="identity", colour="black") #stacked bar
39
a24f8c93583a Uploaded
davidvanzessen
parents: 25
diff changeset
305 p = p + xlab("From base") + ylab("") + ggtitle("Bargraph transition information") + guides(fill=guide_legend(title=NULL))
5
012a738edf5a Uploaded
davidvanzessen
parents: 4
diff changeset
306 p = p + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=16, colour="black")) + scale_fill_manual(values=c("A" = "blue4", "G" = "lightblue1", "C" = "olivedrab3", "T" = "olivedrab4"))
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
307 #p = p + scale_colour_manual(values=c("A" = "black", "G" = "black", "C" = "black", "T" = "black"))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
308 print(p)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
309 dev.off()
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
310 png(filename=paste("transitions_heatmap_", name, ".png", sep=""))
24
9955b23db68c Uploaded
davidvanzessen
parents: 23
diff changeset
311 p = ggplot(transition2, aes(factor(reorder(variable, -order.y)), factor(reorder(id, -order.x)))) + geom_tile(aes(fill = value)) + scale_fill_gradient(low="white", high="steelblue") #heatmap
39
a24f8c93583a Uploaded
davidvanzessen
parents: 25
diff changeset
312 p = p + xlab("To base") + ylab("From Base") + ggtitle("Heatmap transition information") + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=16, colour="black"))
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
313 print(p)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
314 dev.off()
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
315 } else {
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
316 #print("No data to plot")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
317 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
318 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
319
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
320 #print(paste("writing value file: ", name, "_", fname, "_value.txt" ,sep=""))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
321 write.table(x=transitionTable, file=paste("transitions_", name ,"_", fname, ".txt", sep=""), sep=",",quote=F,row.names=T,col.names=NA)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
322 write.table(x=tmp[,c("Sequence.ID", "best_match", "chunk_hit_percentage", "nt_hit_percentage", "start_locations")], file=paste("matched_", name , "_", fname, ".txt", sep=""), sep="\t",quote=F,row.names=F,col.names=T)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
323 cat(matrx[1,x], file=paste(name, "_", fname, "_value.txt" ,sep=""))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
324 cat(nrow(tmp), file=paste(name, "_", fname, "_n.txt" ,sep=""))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
325 #print(paste(fname, name, nrow(tmp)))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
326 matrx
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
327 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
328 nts = c("a", "c", "g", "t")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
329 zeros=rep(0, 4)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
330 funcs = c(median, sum, mean)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
331 fnames = c("median", "sum", "mean")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
332
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
333 print("Creating result tables")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
334
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
335 for(i in 1:length(funcs)){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
336 func = funcs[[i]]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
337 fname = fnames[[i]]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
338
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
339 print(paste("Creating table for", fname))
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
340
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
341 rows = 9
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
342 if(fname == "sum"){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
343 rows = 11
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
344 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
345 matrx = matrix(data = 0, ncol=((length(genes) + 1) * 3),nrow=rows)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
346 for(i in 1:length(genes)){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
347 matrx = calculate_result(i, genes[i], dat, matrx, func, fname, genes[i])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
348 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
349 matrx = calculate_result(i + 1, ".*", dat[!grepl("unmatched", dat$best_match),], matrx, func, fname, name="all")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
350
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
351 result = data.frame(matrx)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
352 if(fname == "sum"){
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
353 row.names(result) = c("Number of Mutations (%)", "Transitions (%)", "Transversions (%)", "Transitions at G C (%)", "Targeting of G C (%)", "Transitions at A T (%)", "Targeting of A T (%)", "FR R/S (ratio)", "CDR R/S (ratio)", "nt in FR", "nt in CDR")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
354 } else {
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
355 row.names(result) = c("Number of Mutations (%)", "Transitions (%)", "Transversions (%)", "Transitions at G C (%)", "Targeting of G C (%)", "Transitions at A T (%)", "Targeting of A T (%)", "FR R/S (ratio)", "CDR R/S (ratio)")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
356 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
357 write.table(x=result, file=paste("mutations_", fname, ".txt", sep=""), sep=",",quote=F,row.names=T,col.names=F)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
358 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
359
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
360 print("Adding median number of mutations to sum table")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
361 sum.table = read.table("mutations_sum.txt", sep=",", header=F)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
362 median.table = read.table("mutations_median.txt", sep=",", header=F)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
363
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
364 new.table = sum.table[1,]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
365 new.table[2,] = median.table[1,]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
366 new.table[3:12,] = sum.table[2:11,]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
367 new.table[,1] = as.character(new.table[,1])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
368 new.table[2,1] = "Median of Number of Mutations (%)"
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
369
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
370 #sum.table = sum.table[c("Number of Mutations (%)", "Median of Number of Mutations (%)", "Transition (%)", "Transversions (%)", "Transitions at G C (%)", "Targeting of G C (%)", "Transitions at A T (%)", "Targeting of A T (%)", "FR R/S (ratio)", "CDR R/S (ratio)", "nt in FR", "nt in CDR"),]
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
371
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
372 write.table(x=new.table, file="mutations_sum.txt", sep=",",quote=F,row.names=F,col.names=F)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
373
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
374 print("Plotting IGA piechart")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
375
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
376 dat = dat[!grepl("^unmatched", dat$best_match),]
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
377
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
378 #blegh
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
379
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
380 genesForPlot = dat[grepl("IGA", dat$best_match),]$best_match
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
381
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
382 if(length(genesForPlot) > 0){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
383 genesForPlot = data.frame(table(genesForPlot))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
384 colnames(genesForPlot) = c("Gene","Freq")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
385 genesForPlot$label = paste(genesForPlot$Gene, "-", genesForPlot$Freq)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
386
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
387 pc = ggplot(genesForPlot, aes(x = factor(1), y=Freq, fill=Gene))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
388 pc = pc + geom_bar(width = 1, stat = "identity") + scale_fill_manual(labels=genesForPlot$label, values=c("IGA1" = "lightblue1", "IGA2" = "blue4"))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
389 pc = pc + coord_polar(theta="y") + scale_y_continuous(breaks=NULL)
5
012a738edf5a Uploaded
davidvanzessen
parents: 4
diff changeset
390 pc = pc + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=16, colour="black"), axis.title=element_blank(), axis.text=element_blank(), axis.ticks=element_blank())
39
a24f8c93583a Uploaded
davidvanzessen
parents: 25
diff changeset
391 pc = pc + xlab(" ") + ylab(" ") + ggtitle(paste("IGA subclass distribution", "( n =", sum(genesForPlot$Freq), ")"))
2
e85fec274cde Uploaded
davidvanzessen
parents: 1
diff changeset
392 write.table(genesForPlot, "IGA_pie.txt", sep="\t",quote=F,row.names=F,col.names=T)
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
393
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
394 png(filename="IGA.png")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
395 print(pc)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
396 dev.off()
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
397 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
398
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
399 print("Plotting IGG piechart")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
400
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
401 genesForPlot = dat[grepl("IGG", dat$best_match),]$best_match
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
402
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
403 if(length(genesForPlot) > 0){
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
404 genesForPlot = data.frame(table(genesForPlot))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
405 colnames(genesForPlot) = c("Gene","Freq")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
406 genesForPlot$label = paste(genesForPlot$Gene, "-", genesForPlot$Freq)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
407
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
408 pc = ggplot(genesForPlot, aes(x = factor(1), y=Freq, fill=Gene))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
409 pc = pc + geom_bar(width = 1, stat = "identity") + scale_fill_manual(labels=genesForPlot$label, values=c("IGG1" = "olivedrab3", "IGG2" = "red", "IGG3" = "gold", "IGG4" = "darkred"))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
410 pc = pc + coord_polar(theta="y") + scale_y_continuous(breaks=NULL)
5
012a738edf5a Uploaded
davidvanzessen
parents: 4
diff changeset
411 pc = pc + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=16, colour="black"), axis.title=element_blank(), axis.text=element_blank(), axis.ticks=element_blank())
39
a24f8c93583a Uploaded
davidvanzessen
parents: 25
diff changeset
412 pc = pc + xlab(" ") + ylab(" ") + ggtitle(paste("IGG subclass distribution", "( n =", sum(genesForPlot$Freq), ")"))
2
e85fec274cde Uploaded
davidvanzessen
parents: 1
diff changeset
413 write.table(genesForPlot, "IGG_pie.txt", sep="\t",quote=F,row.names=F,col.names=T)
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
414
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
415 png(filename="IGG.png")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
416 print(pc)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
417 dev.off()
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
418 }
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
419
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
420 print("Plotting scatterplot")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
421
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
422 dat$percentage_mutations = round(dat$VRegionMutations / dat$VRegionNucleotides * 100, 2)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
423 dat.clss = dat
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
424
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
425 dat.clss$best_match = substr(dat.clss$best_match, 0, 3)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
426
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
427 dat.clss = rbind(dat, dat.clss)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
428
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
429 p = ggplot(dat.clss, aes(best_match, percentage_mutations))
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
430 p = p + geom_point(aes(colour=best_match), position="jitter") + geom_boxplot(aes(middle=mean(percentage_mutations)), alpha=0.1, outlier.shape = NA)
5
012a738edf5a Uploaded
davidvanzessen
parents: 4
diff changeset
431 p = p + xlab("Subclass") + ylab("Frequency") + ggtitle("Frequency scatter plot") + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=16, colour="black"))
9
372ccdcf0b2d Uploaded
davidvanzessen
parents: 8
diff changeset
432 p = p + scale_fill_manual(values=c("IGA" = "blue4", "IGA1" = "lightblue1", "IGA2" = "blue4", "IGG" = "olivedrab3", "IGG1" = "olivedrab3", "IGG2" = "red", "IGG3" = "gold", "IGG4" = "darkred", "IGM" = "darkviolet", "IGE" = "darkorange", "all" = "blue4"))
39
a24f8c93583a Uploaded
davidvanzessen
parents: 25
diff changeset
433 p = p + scale_colour_manual(guide = guide_legend(title = "Subclass"), values=c("IGA" = "blue4", "IGA1" = "lightblue1", "IGA2" = "blue4", "IGG" = "olivedrab3", "IGG1" = "olivedrab3", "IGG2" = "red", "IGG3" = "gold", "IGG4" = "darkred", "IGM" = "darkviolet", "IGE" = "darkorange", "all" = "blue4"))
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
434
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
435 png(filename="scatter.png")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
436 print(p)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
437 dev.off()
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
438
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
439 write.table(dat[,c("Sequence.ID", "best_match", "VRegionMutations", "VRegionNucleotides", "percentage_mutations")], "scatter.txt", sep="\t",quote=F,row.names=F,col.names=T)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
440
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
441 print("Plotting frequency ranges plot")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
442
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
443 dat$best_match_class = substr(dat$best_match, 0, 3)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
444 freq_labels = c("0", "0-2", "2-5", "5-10", "10-15", "15-20", "20")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
445 dat$frequency_bins = cut(dat$percentage_mutations, breaks=c(-Inf, 0, 2,5,10,15,20, Inf), labels=freq_labels)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
446
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
447 frequency_bins_sum = data.frame(data.table(dat)[, list(class_sum=sum(.N)), by=c("best_match_class")])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
448
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
449 frequency_bins_data = data.frame(data.table(dat)[, list(frequency_count=.N), by=c("best_match_class", "frequency_bins")])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
450
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
451 frequency_bins_data = merge(frequency_bins_data, frequency_bins_sum, by="best_match_class")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
452
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
453 frequency_bins_data$frequency = round(frequency_bins_data$frequency_count / frequency_bins_data$class_sum * 100, 2)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
454
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
455 p = ggplot(frequency_bins_data, aes(frequency_bins, frequency))
5
012a738edf5a Uploaded
davidvanzessen
parents: 4
diff changeset
456 p = p + geom_bar(aes(fill=best_match_class), stat="identity", position="dodge") + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=16, colour="black"))
39
a24f8c93583a Uploaded
davidvanzessen
parents: 25
diff changeset
457 p = p + xlab("Frequency ranges") + ylab("Frequency") + ggtitle("Mutation Frequencies by class") + scale_fill_manual(guide = guide_legend(title = "Class"), values=c("IGA" = "blue4", "IGG" = "olivedrab3", "IGM" = "darkviolet", "IGE" = "darkorange", "all" = "blue4"))
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
458
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
459 png(filename="frequency_ranges.png")
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
460 print(p)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
461 dev.off()
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
462
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
463 frequency_bins_data_by_class = frequency_bins_data
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
464
25
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
465 frequency_bins_data_by_class = frequency_bins_data_by_class[order(frequency_bins_data_by_class$best_match_class, frequency_bins_data_by_class$frequency_bins),]
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
466
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
467 frequency_bins_data_by_class$frequency_bins = gsub("-", " to ", frequency_bins_data_by_class$frequency_bins)
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
468 frequency_bins_data_by_class[frequency_bins_data_by_class$frequency_bins == "20", c("frequency_bins")] = "20 or higher"
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
469 frequency_bins_data_by_class[frequency_bins_data_by_class$frequency_bins == "0", c("frequency_bins")] = "0 or lower"
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
470
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
471 write.table(frequency_bins_data_by_class, "frequency_ranges_classes.txt", sep="\t",quote=F,row.names=F,col.names=T)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
472
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
473 frequency_bins_data = data.frame(data.table(dat)[, list(frequency_count=.N), by=c("best_match", "best_match_class", "frequency_bins")])
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
474
23
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
475 frequency_bins_sum = data.frame(data.table(dat)[, list(class_sum=sum(.N)), by=c("best_match")])
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
476
81453585dfc3 Uploaded
davidvanzessen
parents: 9
diff changeset
477 frequency_bins_data = merge(frequency_bins_data, frequency_bins_sum, by="best_match")
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
478
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
479 frequency_bins_data$frequency = round(frequency_bins_data$frequency_count / frequency_bins_data$class_sum * 100, 2)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
480
25
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
481 frequency_bins_data = frequency_bins_data[order(frequency_bins_data$best_match, frequency_bins_data$frequency_bins),]
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
482 frequency_bins_data$frequency_bins = gsub("-", " to ", frequency_bins_data$frequency_bins)
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
483 frequency_bins_data[frequency_bins_data$frequency_bins == "20", c("frequency_bins")] = "20 or higher"
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
484 frequency_bins_data[frequency_bins_data$frequency_bins == "0", c("frequency_bins")] = "0 or lower"
8d1c4c75f81b Uploaded
davidvanzessen
parents: 24
diff changeset
485
1
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
486 write.table(frequency_bins_data, "frequency_ranges_subclasses.txt", sep="\t",quote=F,row.names=F,col.names=T)
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
487
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
488
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
489
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
490
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
491
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
492
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
493
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
494
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
495
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
496
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
497
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
498
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
499
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
500
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
501
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
502
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
503
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
504
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
505
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
506
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
507
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
508
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
509
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
510
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
511
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
512
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
513
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
514
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
515
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
516
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
517
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
518
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
519
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
520
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
521
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
522
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
523
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
524
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
525
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
526
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
527
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
528
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
529
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
530
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
531
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
532
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
533
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
534
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
535
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
536
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
537
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
538
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
539
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
540
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
541
faae21ba5c63 Uploaded
davidvanzessen
parents: 0
diff changeset
542