Mercurial > repos > jfb > difference_finder

comparison all stuff/Difference finder for GalaxyP 2-21-20.R @ 10:78f16bc92ba6 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Fri, 21 Feb 2020 16:37:08 -0500
parents 033dd86d3e0c
children
comparison
equal deleted inserted replaced
9:033dd86d3e0c 10:78f16bc92ba6
242 write.table(x=FTLoutputmatrix2, 242 write.table(x=FTLoutputmatrix2,
243 file=First_unshared_motifs_table, 243 file=First_unshared_motifs_table,
244 quote=FALSE, sep=",", 244 quote=FALSE, sep=",",
245 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 245 row.names=FALSE,col.names = FALSE, na="", append=TRUE)
246 246
247 columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) 247 columnalheader<-c(as.character(Firstsubbackfreq[1:36,1]))
248 columnalheader<-matrix(columnalheader,nrow = 1) 248 columnalheader<-matrix(columnalheader,nrow = 1)
249 write.table(x=columnalheader, 249 write.table(x=columnalheader,
250 file=First_unshared_subbackfreq, 250 file=First_unshared_subbackfreq,
251 quote=FALSE, sep=",", 251 quote=FALSE, sep=",",
252 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 252 row.names=FALSE,col.names = FALSE, na="", append=TRUE)
260 write.table(x=EmptySubHeader, 260 write.table(x=EmptySubHeader,
261 file=First_unshared_motifs_table, 261 file=First_unshared_motifs_table,
262 quote=FALSE, sep=",", 262 quote=FALSE, sep=",",
263 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 263 row.names=FALSE,col.names = FALSE, na="", append=TRUE)
264 264
265 columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) 265 columnalheader<-c(as.character(Firstsubbackfreq[1:36,1]))
266 columnalheader<-matrix(columnalheader,nrow = 1) 266 columnalheader<-matrix(columnalheader,nrow = 1)
267 write.table(x=columnalheader, 267 write.table(x=columnalheader,
268 file=First_unshared_subbackfreq, 268 file=First_unshared_subbackfreq,
269 quote=FALSE, sep=",", 269 quote=FALSE, sep=",",
270 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 270 row.names=FALSE,col.names = FALSE, na="", append=TRUE)
329 write.table(x=D835Youtputmatrix2, 329 write.table(x=D835Youtputmatrix2,
330 file=Second_unshared_motifs_table, 330 file=Second_unshared_motifs_table,
331 quote=FALSE, sep=",", 331 quote=FALSE, sep=",",
332 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 332 row.names=FALSE,col.names = FALSE, na="", append=TRUE)
333 333
334 columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) 334 columnalheader<-c(as.character(Firstsubbackfreq[1:36,1]))
335 columnalheader<-matrix(columnalheader,nrow = 1) 335 columnalheader<-matrix(columnalheader,nrow = 1)
336 write.table(x=columnalheader, 336 write.table(x=columnalheader,
337 file=Second_unshared_subbackfreq, 337 file=Second_unshared_subbackfreq,
338 quote=FALSE, sep=",", 338 quote=FALSE, sep=",",
339 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 339 row.names=FALSE,col.names = FALSE, na="", append=TRUE)
347 write.table(x=EmptySubHeader, 347 write.table(x=EmptySubHeader,
348 file=Second_unshared_motifs_table, 348 file=Second_unshared_motifs_table,
349 quote=FALSE, sep=",", 349 quote=FALSE, sep=",",
350 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 350 row.names=FALSE,col.names = FALSE, na="", append=TRUE)
351 351
352 columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) 352 columnalheader<-c(as.character(Firstsubbackfreq[1:36,1]))
353 columnalheader<-matrix(columnalheader,nrow = 1) 353 columnalheader<-matrix(columnalheader,nrow = 1)
354 write.table(x=columnalheader, 354 write.table(x=columnalheader,
355 file=Second_unshared_subbackfreq, 355 file=Second_unshared_subbackfreq,
356 quote=FALSE, sep=",", 356 quote=FALSE, sep=",",
357 row.names=FALSE,col.names = FALSE, na="", append=TRUE) 357 row.names=FALSE,col.names = FALSE, na="", append=TRUE)