diff all stuff/Difference finderMADE 7 TO 7 1-15-2019.R @ 1:110a74dff8e1 draft

Uploaded
author jfb
date Wed, 16 Jan 2019 14:20:15 -0500
parents 23eea82f5192
children beba4066121e
line wrap: on
line diff
--- a/all stuff/Difference finderMADE 7 TO 7 1-15-2019.R	Wed Jan 16 13:55:22 2019 -0500
+++ b/all stuff/Difference finderMADE 7 TO 7 1-15-2019.R	Wed Jan 16 14:20:15 2019 -0500
@@ -54,17 +54,20 @@
 FirstTees<-sapply(FirstCentralLetters, grepl, pattern="T", ignore.case=TRUE)
 FirstWys<-sapply(FirstCentralLetters, grepl, pattern="Y", ignore.case=TRUE)
 
-SecondEsses<-sapply(FirstCentralLetters, grepl, pattern="S", ignore.case=TRUE)
-SecondTees<-sapply(FirstCentralLetters, grepl, pattern="T", ignore.case=TRUE)
-SecondWys<-sapply(FirstCentralLetters, grepl, pattern="Y", ignore.case=TRUE)
+SecondEsses<-sapply(SecondCentralLetters, grepl, pattern="S", ignore.case=TRUE)
+SecondTees<-sapply(SecondCentralLetters, grepl, pattern="T", ignore.case=TRUE)
+SecondWys<-sapply(SecondCentralLetters, grepl, pattern="Y", ignore.case=TRUE)
 
 FirstCentralLetters<-replace(FirstCentralLetters,FirstEsses,"xS")
 FirstCentralLetters<-replace(FirstCentralLetters,FirstTees,"xT")
 FirstCentralLetters<-replace(FirstCentralLetters,FirstWys,"xY")
 
-SecondCentralLetters<-replace(SecondCentralLetters,FirstEsses,"xS")
-SecondCentralLetters<-replace(SecondCentralLetters,FirstTees,"xT")
-SecondCentralLetters<-replace(SecondCentralLetters,FirstWys,"xY")
+SecondCentralLetters<-replace(SecondCentralLetters,SecondEsses,"xS")
+SecondCentralLetters<-replace(SecondCentralLetters,SecondTees,"xT")
+SecondCentralLetters<-replace(SecondCentralLetters,SecondWys,"xY")
+
+FirstCentralLetters->FirstSubstrateSet[,11]
+SecondCentralLetters->SecondSubstrateSet[,11]
 
 ####################################################################################################################################
 ####################################################################################################################################
@@ -320,9 +323,9 @@
   SecondTees<-sapply(SecondCentralLettersAGAIN, grepl, pattern="T", ignore.case=TRUE)
   SecondWys<-sapply(SecondCentralLettersAGAIN, grepl, pattern="Y", ignore.case=TRUE)
   
-  SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,FirstEsses,"xS")
-  SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,FirstTees,"xT")
-  SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,FirstWys,"xY")
+  SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,SecondEsses,"xS")
+  SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,SecondTees,"xT")
+  SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,SecondWys,"xY")
   
   SecondCentralLettersAGAIN->D835Youtputmatrix2[,11]