Mercurial > repos > jfb > difference_finder
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]