# HG changeset patch
# User jfb
# Date 1582584854 18000
# Node ID 6eacb089b655393b7b9b8c7d30b0d80305c088ec
# Parent  a20e7cc7e0c9f3e02c20aeddc77aaa1313767207
Uploaded

diff -r a20e7cc7e0c9 -r 6eacb089b655 C and D finder/commonality-working feb 21 20.R
--- 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])){