Mercurial > repos > jfb > commonality_finder

changeset 3:6eacb089b655 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Mon, 24 Feb 2020 17:54:14 -0500
parents a20e7cc7e0c9
children 830e8dc3acac
files C and D finder/commonality-working feb 21 20.R
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/C and D finder/commonality-working feb 21 20.R	Fri Feb 21 16:38:55 2020 -0500
+++ b/C and D finder/commonality-working feb 21 20.R	Mon Feb 24 17:54:14 2020 -0500
@@ -1,5 +1,5 @@
-FirstSubstrateSet<- read.csv("r1sub.csv", stringsAsFactors=FALSE, header = FALSE)
-Firstsubbackfreq<- read.csv("r1sbf.csv", header=FALSE, stringsAsFactors=FALSE)
+FirstSubstrateSet<- read.csv("input1.csv", stringsAsFactors=FALSE, header = FALSE)
+Firstsubbackfreq<- read.csv("input2.csv", header=FALSE, stringsAsFactors=FALSE)
 SubstrateHeader<-FirstSubstrateSet[1,]
 FirstSubstrateSet<- FirstSubstrateSet[2:nrow(FirstSubstrateSet),]
 if(nrow(Firstsubbackfreq[1,]>35)){
@@ -9,8 +9,8 @@
 }
 
 
-SecondSubstrateSet<- read.csv("r1sub.csv", stringsAsFactors=FALSE, header = FALSE)
-Secondsubbackfreq<- read.csv("r1sbf.csv", header=FALSE, stringsAsFactors=FALSE)
+SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, header = FALSE)
+Secondsubbackfreq<- read.csv("input4.csv", header=FALSE, stringsAsFactors=FALSE)
 SecondSubstrateSet<- SecondSubstrateSet[2:nrow(SecondSubstrateSet),]
 if(nrow(Secondsubbackfreq[1,]>35)){
   if(grepl(pattern = "Properties", x=Secondsubbackfreq[1,22])){
@@ -19,8 +19,8 @@
 }
 
 
-ThirdSubstrateSet<- read.csv("r2sub.csv", stringsAsFactors=FALSE, header = FALSE)
-Thirdsubbackfreq<- read.csv("r2sbf.csv", header=FALSE, stringsAsFactors=FALSE)
+ThirdSubstrateSet<- read.csv("input5.csv", stringsAsFactors=FALSE, header = FALSE)
+Thirdsubbackfreq<- read.csv("input6.csv", header=FALSE, stringsAsFactors=FALSE)
 ThirdSubstrateSet<- ThirdSubstrateSet[2:nrow(ThirdSubstrateSet),]
 if(nrow(Thirdsubbackfreq[1,]>35)){
   if(grepl(pattern = "Properties", x=Thirdsubbackfreq[1,22])){