| Previous changeset 2:a20e7cc7e0c9 (2020-02-21) Next changeset 4:830e8dc3acac (2020-07-14) |
|
Commit message:
Uploaded |
|
modified:
C and D finder/commonality-working feb 21 20.R |
| b |
| 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])){ |