Mercurial > repos > jfb > difference_finder
diff all stuff/Difference finder for GalaxyP 2-21-20.R @ 10:78f16bc92ba6 draft
Uploaded
| author | jfb |
|---|---|
| date | Fri, 21 Feb 2020 16:37:08 -0500 |
| parents | 033dd86d3e0c |
| children |
line wrap: on
line diff
--- a/all stuff/Difference finder for GalaxyP 2-21-20.R Fri Feb 21 13:07:45 2020 -0500 +++ b/all stuff/Difference finder for GalaxyP 2-21-20.R Fri Feb 21 16:37:08 2020 -0500 @@ -244,7 +244,7 @@ quote=FALSE, sep=",", row.names=FALSE,col.names = FALSE, na="", append=TRUE) - columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) + columnalheader<-c(as.character(Firstsubbackfreq[1:36,1])) columnalheader<-matrix(columnalheader,nrow = 1) write.table(x=columnalheader, file=First_unshared_subbackfreq, @@ -262,7 +262,7 @@ quote=FALSE, sep=",", row.names=FALSE,col.names = FALSE, na="", append=TRUE) - columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) + columnalheader<-c(as.character(Firstsubbackfreq[1:36,1])) columnalheader<-matrix(columnalheader,nrow = 1) write.table(x=columnalheader, file=First_unshared_subbackfreq, @@ -331,7 +331,7 @@ quote=FALSE, sep=",", row.names=FALSE,col.names = FALSE, na="", append=TRUE) - columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) + columnalheader<-c(as.character(Firstsubbackfreq[1:36,1])) columnalheader<-matrix(columnalheader,nrow = 1) write.table(x=columnalheader, file=Second_unshared_subbackfreq, @@ -349,7 +349,7 @@ quote=FALSE, sep=",", row.names=FALSE,col.names = FALSE, na="", append=TRUE) - columnalheader<-c("Accession Numbers",as.character(Firstsubbackfreq[1:35,1])) + columnalheader<-c(as.character(Firstsubbackfreq[1:36,1])) columnalheader<-matrix(columnalheader,nrow = 1) write.table(x=columnalheader, file=Second_unshared_subbackfreq,