1
|
1 }
|
|
2 }else { #filter=="relaxed"
|
|
3 for (node in nodes){
|
|
4 if (disc[node]==0){
|
|
5 val=min(dfundes[,node])
|
|
6 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
7 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
8 }
|
|
9 if (disc[node]==1){
|
|
10 val=max(dfdes[,node])
|
|
11 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
12 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
13 }
|
|
14 }
|
|
15 }
|
|
16 View(isdisc)
|
|
17 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
18 colnames(hammings)=c("replicate","perturbation")
|
|
19 hammings$hammingdist<-apply(isdisc,1,function(x) sum(disc != x))
|
|
20 View(hammings)
|
|
21 is<-read.delim("internal_markers.txt",sep=" ")
|
|
22 is$ID<-paste(is$replicate,is$perturbation,sep="_")
|
|
23 row.names(is)<-is$ID
|
|
24 is<- is %>% select(-ID,-perturbation,-replicate)
|
|
25 isdisc<-is
|
|
26 if (filter=="strict"){
|
|
27 for (node in nodes){
|
|
28 if (disc[node]==0){
|
|
29 val=max(dfdes[,node])
|
|
30 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
31 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
32 }
|
|
33 if (disc[node]==1){
|
|
34 val=min(dfdes[,node])
|
|
35 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
36 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
37 }
|
|
38 }
|
|
39 }else { #filter=="relaxed"
|
|
40 for (node in nodes){
|
|
41 if (disc[node]==0){
|
|
42 val=min(dfundes[,node])
|
|
43 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
44 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
45 }
|
|
46 if (disc[node]==1){
|
|
47 val=max(dfdes[,node])
|
|
48 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
49 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
50 }
|
|
51 }
|
|
52 }
|
|
53 hammings<-data.frame(row.names(isdisc))
|
|
54 colnames(hammings)=c("perturbations")
|
|
55 # hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
56 # colnames(hammings)=c("replicate","perturbation")
|
|
57 hammings<-data.frame(row.names())
|
|
58 hammings$hammingdist<-apply(isdisc,1,function(x) sum(disc != x))
|
|
59 View(hammings)
|
|
60 is<-read.delim("internal_markers.txt",sep=" ")
|
|
61 isdisc<-is
|
|
62 if (filter=="strict"){
|
|
63 for (node in nodes){
|
|
64 if (disc[node]==0){
|
|
65 val=max(dfdes[,node])
|
|
66 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
67 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
68 }
|
|
69 if (disc[node]==1){
|
|
70 val=min(dfdes[,node])
|
|
71 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
72 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
73 }
|
|
74 }
|
|
75 }else { #filter=="relaxed"
|
|
76 for (node in nodes){
|
|
77 if (disc[node]==0){
|
|
78 val=min(dfundes[,node])
|
|
79 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
80 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
81 }
|
|
82 if (disc[node]==1){
|
|
83 val=max(dfdes[,node])
|
|
84 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
85 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
86 }
|
|
87 }
|
|
88 }
|
|
89 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
90 colnames(hammings)=c("replicate","perturbation")
|
|
91 # hammings<-data.frame(row.names())
|
|
92 test$hammingdist<-apply(isdisc,1,function(x) sum(disc != x))
|
|
93 # hammings<-data.frame(row.names(isdisc))
|
|
94 # colnames(hammings)=c("perturbations")
|
|
95 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
96 colnames(hammings)=c("replicate","perturbation")
|
|
97 # hammings<-data.frame(row.names(isdisc))
|
|
98 # colnames(hammings)=c("perturbations")
|
|
99 test<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
100 colnames(test)=c("replicate","perturbation")
|
|
101 # hammings<-data.frame(row.names())
|
|
102 test$hammingdist<-apply(isdisc,1,function(x) sum(disc != x))
|
|
103 View(test)
|
|
104 # hammings<-data.frame(row.names(isdisc))
|
|
105 # colnames(hammings)=c("perturbations")
|
|
106 test<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
107 colnames(test)=c("replicate","perturbation")
|
|
108 # hammings<-data.frame(row.names())
|
|
109 test$hammingdist<-apply(isdisc[,3],1,function(x) sum(disc != x))
|
|
110 # hammings<-data.frame(row.names())
|
|
111 test$hammingdist<-lapply(isdisc[,3],1,function(x) sum(disc != x))
|
|
112 # hammings<-data.frame(row.names())
|
|
113 test$hammingdist<-lapply(isdisc[,3],function(x) sum(disc != x))
|
|
114 hammings$hammingdist<-apply(isdisc,1,function(x) sum(disc != x))
|
|
115 if (length(nodes)<10){
|
|
116 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
117 }else{
|
|
118 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
119 }
|
|
120 exp<-read.delim('exp_internalmarkers.txt',sep=" ",row.names = 1)
|
|
121 samples<-read.delim("test-data/samples.txt",sep="\t",row.names = 1)
|
|
122 exp<-exp %>% dplyr::filter(row.names(exp) %in% row.names(samples))
|
|
123 desired<-"sensitive"
|
|
124 undesired<-"resistant"
|
|
125 filter<-"strict"
|
|
126 dfdes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% desired,,drop=FALSE]))
|
|
127 meandes<- apply(dfdes,2,mean)
|
|
128 dfundes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% undesired,,drop=FALSE]))
|
|
129 meandundes<-apply(dfundes,2,mean)
|
|
130 test<-meandes-meandundes
|
|
131 disc<-test
|
|
132 disc[disc<0]<-0
|
|
133 disc[disc>0]<-1
|
|
134 nodes<-colnames(dfdes)
|
|
135 is<-read.delim("internal_markers.txt",sep=" ")
|
|
136 is$ID<-paste(is$replicate,is$perturbation,sep="_")
|
|
137 row.names(is)<-is$ID
|
|
138 is<- is %>% select(-ID,-perturbation,-replicate)
|
|
139 isdisc<-is
|
|
140 if (filter=="strict"){
|
|
141 for (node in nodes){
|
|
142 if (disc[node]==0){
|
|
143 val=max(dfdes[,node])
|
|
144 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
145 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
146 }
|
|
147 if (disc[node]==1){
|
|
148 val=min(dfdes[,node])
|
|
149 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
150 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
151 }
|
|
152 }
|
|
153 }else { #filter=="relaxed"
|
|
154 for (node in nodes){
|
|
155 if (disc[node]==0){
|
|
156 val=min(dfundes[,node])
|
|
157 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
158 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
159 }
|
|
160 if (disc[node]==1){
|
|
161 val=max(dfdes[,node])
|
|
162 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
163 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
164 }
|
|
165 }
|
|
166 }
|
|
167 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
168 colnames(hammings)=c("replicate","perturbation")
|
|
169 hammings$hammingdist<-lapply(isdisc[,3],function(x) sum(disc != x))
|
|
170 #plyr::count(hammings$hammingdist)
|
|
171 if (length(nodes)<10){
|
|
172 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
173 }else{
|
|
174 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
175 }
|
|
176 poi<-Reduce(intersect,list(hams1_1$perturbations))
|
|
177 write.table(poi,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,col.names = c('pert'))
|
|
178 write.table(poi,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
179 exp<-read.delim('exp_internalmarkers.txt',sep=" ",row.names = 1)
|
|
180 samples<-read.delim("test-data/samples.txt",sep="\t",row.names = 1)
|
|
181 exp<-exp %>% dplyr::filter(row.names(exp) %in% row.names(samples))
|
|
182 desired<-"sensitive"
|
|
183 undesired<-"resistant"
|
|
184 filter<-"strict"
|
|
185 dfdes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% desired,,drop=FALSE]))
|
|
186 meandes<- apply(dfdes,2,mean)
|
|
187 dfundes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% undesired,,drop=FALSE]))
|
|
188 meandundes<-apply(dfundes,2,mean)
|
|
189 test<-meandes-meandundes
|
|
190 disc<-test
|
|
191 disc[disc<0]<-0
|
|
192 disc[disc>0]<-1
|
|
193 nodes<-colnames(dfdes)
|
|
194 is<-read.delim("internal_markers.txt",sep=" ")
|
|
195 is$ID<-paste(is$replicate,is$perturbation,sep="_")
|
|
196 row.names(is)<-is$ID
|
|
197 is<- is %>% select(-ID,-perturbation,-replicate)
|
|
198 isdisc<-is
|
|
199 if (filter=="strict"){
|
|
200 for (node in nodes){
|
|
201 if (disc[node]==0){
|
|
202 val=max(dfdes[,node])
|
|
203 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
204 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
205 }
|
|
206 if (disc[node]==1){
|
|
207 val=min(dfdes[,node])
|
|
208 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
209 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
210 }
|
|
211 }
|
|
212 }else { #filter=="relaxed"
|
|
213 for (node in nodes){
|
|
214 if (disc[node]==0){
|
|
215 val=min(dfundes[,node])
|
|
216 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
217 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
218 }
|
|
219 if (disc[node]==1){
|
|
220 val=max(dfdes[,node])
|
|
221 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
222 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
223 }
|
|
224 }
|
|
225 }
|
|
226 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
227 colnames(hammings)=c("replicate","perturbation")
|
|
228 hammings$hammingdist<-lapply(isdisc[,3],function(x) sum(disc != x))
|
|
229 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
230 colnames(hammings)=c("replicate","perturbation")
|
|
231 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
232 exp<-read.delim('exp_internalmarkers.txt',sep=" ",row.names = 1)
|
|
233 samples<-read.delim("test-data/samples.txt",sep="\t",row.names = 1)
|
|
234 exp<-exp %>% dplyr::filter(row.names(exp) %in% row.names(samples))
|
|
235 desired<-"sensitive"
|
|
236 undesired<-"resistant"
|
|
237 filter<-"strict"
|
|
238 dfdes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% desired,,drop=FALSE]))
|
|
239 meandes<- apply(dfdes,2,mean)
|
|
240 dfundes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% undesired,,drop=FALSE]))
|
|
241 meandundes<-apply(dfundes,2,mean)
|
|
242 test<-meandes-meandundes
|
|
243 disc<-test
|
|
244 disc[disc<0]<-0
|
|
245 disc[disc>0]<-1
|
|
246 nodes<-colnames(dfdes)
|
|
247 is<-read.delim("internal_markers.txt",sep=" ")
|
|
248 isdisc<-is
|
|
249 if (filter=="strict"){
|
|
250 for (node in nodes){
|
|
251 if (disc[node]==0){
|
|
252 val=max(dfdes[,node])
|
|
253 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
254 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
255 }
|
|
256 if (disc[node]==1){
|
|
257 val=min(dfdes[,node])
|
|
258 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
259 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
260 }
|
|
261 }
|
|
262 }else { #filter=="relaxed"
|
|
263 for (node in nodes){
|
|
264 if (disc[node]==0){
|
|
265 val=min(dfundes[,node])
|
|
266 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
267 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
268 }
|
|
269 if (disc[node]==1){
|
|
270 val=max(dfdes[,node])
|
|
271 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
272 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
273 }
|
|
274 }
|
|
275 }
|
|
276 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
277 colnames(hammings)=c("replicate","perturbation")
|
|
278 hammings$hammingdist<-lapply(isdisc[,3],function(x) sum(disc != x))
|
|
279 #plyr::count(hammings$hammingdist)
|
|
280 if (length(nodes)<10){
|
|
281 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
282 }else{
|
|
283 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
284 }
|
|
285 poi<-Reduce(intersect,list(hams1_1$perturbations))
|
|
286 write.table(poi,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
287 View(hammings)
|
|
288 if (length(nodes)<10){
|
|
289 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
290 }else{
|
|
291 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
292 }
|
|
293 View(hams1_1)
|
|
294 poi<-Reduce(intersect,list(hams1_1$perturbations))
|
|
295 write.table(poi,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
296 source('~/Dropbox/NETISCE_galaxy/new_bin/crit2-update.R')
|
|
297 exp<-read.delim('exp_internalmarkers.txt',sep=" ",row.names = 1)
|
|
298 samples<-read.delim("test-data/samples.txt",sep="\t",row.names = 1)
|
|
299 exp<-exp %>% dplyr::filter(row.names(exp) %in% row.names(samples))
|
|
300 desired<-"sensitive"
|
|
301 undesired<-"resistant"
|
|
302 filter<-"strict"
|
|
303 dfdes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% desired,,drop=FALSE]))
|
|
304 meandes<- apply(dfdes,2,mean)
|
|
305 dfundes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% undesired,,drop=FALSE]))
|
|
306 meandundes<-apply(dfundes,2,mean)
|
|
307 test<-meandes-meandundes
|
|
308 disc<-test
|
|
309 disc[disc<0]<-0
|
|
310 disc[disc>0]<-1
|
|
311 nodes<-colnames(dfdes)
|
|
312 is<-read.delim("internal_markers.txt",sep=" ")
|
|
313 isdisc<-is
|
|
314 if (filter=="strict"){
|
|
315 for (node in nodes){
|
|
316 if (disc[node]==0){
|
|
317 val=max(dfdes[,node])
|
|
318 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
319 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
320 }
|
|
321 if (disc[node]==1){
|
|
322 val=min(dfdes[,node])
|
|
323 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
324 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
325 }
|
|
326 }
|
|
327 }else { #filter=="relaxed"
|
|
328 for (node in nodes){
|
|
329 if (disc[node]==0){
|
|
330 val=min(dfundes[,node])
|
|
331 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
332 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
333 }
|
|
334 if (disc[node]==1){
|
|
335 val=max(dfdes[,node])
|
|
336 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
337 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
338 }
|
|
339 }
|
|
340 }
|
|
341 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
342 colnames(hammings)=c("replicate","perturbation")
|
|
343 hammings$hammingdist<-lapply(isdisc[,3],function(x) sum(disc != x))
|
|
344 #plyr::count(hammings$hammingdist)
|
|
345 if (length(nodes)<10){
|
|
346 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
347 }else{
|
|
348 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
349 }
|
|
350 poi<-Reduce(intersect,list(hams1_1$perturbations))
|
|
351 write.table(poi,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
352 View(hams1_1)
|
|
353 View(hams1_1)
|
|
354 poi<-Reduce(intersect,list(hams1_1$perturbations))
|
|
355 poi<-hams1_1
|
|
356 View(poi)
|
|
357 write.table(poi,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
358 write.table(hams1_1,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
359 View(hams1_1)
|
|
360 write.table(hams1_1,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
361 write.table(as.dataframe(hams1_1),'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
362 View(hams1_1)
|
|
363 View(hams1_1)
|
|
364 write.table(hams1_1,file='crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
365 class(hams1_1)
|
|
366 .libPaths('~/R_libs_36')
|
|
367 args = commandArgs(trailingOnly=TRUE)
|
|
368 library(plyr)
|
|
369 library(dplyr)
|
|
370 library(ggplot2)
|
|
371 library(reshape2)
|
|
372 library(readr)
|
|
373 getwd()
|
|
374 exp<-read.delim('exp_internalmarkers.txt',sep=" ",row.names = 1)
|
|
375 samples<-read.delim("test-data/samples.txt",sep="\t",row.names = 1)
|
|
376 exp<-exp %>% dplyr::filter(row.names(exp) %in% row.names(samples))
|
|
377 desired<-"sensitive"
|
|
378 undesired<-"resistant"
|
|
379 filter<-"strict"
|
|
380 dfdes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% desired,,drop=FALSE]))
|
|
381 meandes<- apply(dfdes,2,mean)
|
|
382 dfundes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% undesired,,drop=FALSE]))
|
|
383 meandundes<-apply(dfundes,2,mean)
|
|
384 test<-meandes-meandundes
|
|
385 disc<-test
|
|
386 disc[disc<0]<-0
|
|
387 disc[disc>0]<-1
|
|
388 nodes<-colnames(dfdes)
|
|
389 is<-read.delim("internal_markers.txt",sep=" ")
|
|
390 isdisc<-is
|
|
391 if (filter=="strict"){
|
|
392 for (node in nodes){
|
|
393 if (disc[node]==0){
|
|
394 val=max(dfdes[,node])
|
|
395 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
396 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
397 }
|
|
398 if (disc[node]==1){
|
|
399 val=min(dfdes[,node])
|
|
400 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
401 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
402 }
|
|
403 }
|
|
404 }else { #filter=="relaxed"
|
|
405 for (node in nodes){
|
|
406 if (disc[node]==0){
|
|
407 val=min(dfundes[,node])
|
|
408 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
409 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
410 }
|
|
411 if (disc[node]==1){
|
|
412 val=max(dfdes[,node])
|
|
413 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
414 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
415 }
|
|
416 }
|
|
417 }
|
|
418 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
419 colnames(hammings)=c("replicate","perturbation")
|
|
420 hammings$hammingdist<-lapply(isdisc[,3],function(x) sum(disc != x))
|
|
421 #plyr::count(hammings$hammingdist)
|
|
422 if (length(nodes)<10){
|
|
423 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
424 }else{
|
|
425 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
426 }
|
|
427 poi<-Reduce(intersect,list(hams1_1$perturbations))
|
|
428 write.table(poi,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
429 poi<-Reduce(intersect,list(hams1_1$perturbations))
|
|
430 View(hams1_1)
|
|
431 write.table(hams1_1,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE)
|
|
432 write.delim(hams1_1,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,sep=" ")
|
|
433 write.table(hams1_1,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,sep=" ")
|
|
434 #!/usr/bin/env Rscript
|
|
435 .libPaths('~/R_libs_36')
|
|
436 args = commandArgs(trailingOnly=TRUE)
|
|
437 library(plyr)
|
|
438 library(dplyr)
|
|
439 library(reshape2)
|
|
440 library(readr)
|
|
441 getwd()
|
|
442 exp<-read.delim('exp_internalmarkers.txt',sep=" ",row.names = 1)
|
|
443 samples<-read.delim("test-data/samples.txt",sep="\t",row.names = 1)
|
|
444 exp<-exp %>% dplyr::filter(row.names(exp) %in% row.names(samples))
|
|
445 desired<-"sensitive"
|
|
446 undesired<-"resistant"
|
|
447 filter<-"strict"
|
|
448 dfdes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% desired,,drop=FALSE]))
|
|
449 meandes<- apply(dfdes,2,mean)
|
|
450 dfundes<- exp %>% filter(rownames(exp) %in% rownames(samples[samples$phenotype %in% undesired,,drop=FALSE]))
|
|
451 meandundes<-apply(dfundes,2,mean)
|
|
452 test<-meandes-meandundes
|
|
453 disc<-test
|
|
454 disc[disc<0]<-0
|
|
455 disc[disc>0]<-1
|
|
456 nodes<-colnames(dfdes)
|
|
457 is<-read.delim("internal_markers.txt",sep=" ")
|
|
458 isdisc<-is
|
|
459 if (filter=="strict"){
|
|
460 for (node in nodes){
|
|
461 if (disc[node]==0){
|
|
462 val=max(dfdes[,node])
|
|
463 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
464 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
465 }
|
|
466 if (disc[node]==1){
|
|
467 val=min(dfdes[,node])
|
|
468 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
469 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
470 }
|
|
471 }
|
|
472 }else { #filter=="relaxed"
|
|
473 for (node in nodes){
|
|
474 if (disc[node]==0){
|
|
475 val=min(dfundes[,node])
|
|
476 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
477 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
478 }
|
|
479 if (disc[node]==1){
|
|
480 val=max(dfdes[,node])
|
|
481 isdisc[,node]<-replace(isdisc[,node],is[,node]>val, 1)
|
|
482 isdisc[,node]<-replace(isdisc[,node],is[,node]<val, 0)
|
|
483 }
|
|
484 }
|
|
485 }
|
|
486 hammings<-data.frame(isdisc$replicate,isdisc$perturbation)
|
|
487 colnames(hammings)=c("replicate","perturbation")
|
|
488 hammings$hammingdist<-lapply(isdisc[,3],function(x) sum(disc != x))
|
|
489 if (length(nodes)<10){
|
|
490 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
491 }else{
|
|
492 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
493 }
|
|
494 View(hams1_1)
|
|
495 class(hams1_1)
|
|
496 write.table(hams1_1,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,sep=" ")
|
|
497 typeof(hams1_1$replicate)
|
|
498 typeof(hams1_1$perturbation)
|
|
499 ?lapply
|
|
500 hammings$hammingdist<-lapply(simplify=T,isdisc[,3],function(x) sum(disc != x))
|
|
501 hammings$hammingdist<-sapply(isdisc[,3],function(x) sum(disc != x))
|
|
502 if (length(nodes)<10){
|
|
503 hams1_1<-hammings %>%filter(hammingdist<1)
|
|
504 }else{
|
|
505 hams1_1<-hammings %>%filter(hammingdist<=length(nodes)-round(.9*length(nodes)))
|
|
506 }
|
|
507 write.table(hams1_1,'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,sep=" ")
|
|
508 write.table(hams1_1[c(1,2),],'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,sep=" ")
|
|
509 View(hams1_1)
|
|
510 View(hams1_1)
|
|
511 write.table(hams1_1[c(1,2),],'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,sep=" ")
|
|
512 write.table(hams1_1[,c(1,2)],'crit2_perturbations.txt',quote=FALSE,row.names = FALSE,sep=" ")
|