comparison C and D finder/commonality-working feb 21 20.R @ 3:6eacb089b655 draft

Uploaded

2:a20e7cc7e0c9

FirstSubstrateSet<- read.csv("r1sub.csv", stringsAsFactors=FALSE, header = FALSE)
Firstsubbackfreq<- read.csv("r1sbf.csv", header=FALSE, stringsAsFactors=FALSE)
SubstrateHeader<-FirstSubstrateSet[1,]
FirstSubstrateSet<- FirstSubstrateSet[2:nrow(FirstSubstrateSet),]
if(nrow(Firstsubbackfreq[1,]>35)){
  if(grepl(pattern = "Properties", x=Firstsubbackfreq[1,22])){
    Firstsubbackfreq<-t(Firstsubbackfreq)
  }
}


SecondSubstrateSet<- read.csv("r1sub.csv", stringsAsFactors=FALSE, header = FALSE)
Secondsubbackfreq<- read.csv("r1sbf.csv", header=FALSE, stringsAsFactors=FALSE)
SecondSubstrateSet<- SecondSubstrateSet[2:nrow(SecondSubstrateSet),]
if(nrow(Secondsubbackfreq[1,]>35)){
  if(grepl(pattern = "Properties", x=Secondsubbackfreq[1,22])){
    Secondsubbackfreq<-t(Secondsubbackfreq)
  }
}


ThirdSubstrateSet<- read.csv("r2sub.csv", stringsAsFactors=FALSE, header = FALSE)
Thirdsubbackfreq<- read.csv("r2sbf.csv", header=FALSE, stringsAsFactors=FALSE)
ThirdSubstrateSet<- ThirdSubstrateSet[2:nrow(ThirdSubstrateSet),]
if(nrow(Thirdsubbackfreq[1,]>35)){
  if(grepl(pattern = "Properties", x=Thirdsubbackfreq[1,22])){
    Thirdsubbackfreq<-t(Thirdsubbackfreq)
  }

3:6eacb089b655

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)){
  if(grepl(pattern = "Properties", x=Firstsubbackfreq[1,22])){
    Firstsubbackfreq<-t(Firstsubbackfreq)
  }
}


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])){
    Secondsubbackfreq<-t(Secondsubbackfreq)
  }
}


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])){
    Thirdsubbackfreq<-t(Thirdsubbackfreq)
  }