| Previous changeset 0:23eea82f5192 (2019-01-16) Next changeset 2:beba4066121e (2019-01-16) |
|
Commit message:
Uploaded |
|
modified:
all stuff/Difference finderMADE 7 TO 7 1-15-2019.R |
| b |
| diff -r 23eea82f5192 -r 110a74dff8e1 all stuff/Difference finderMADE 7 TO 7 1-15-2019.R --- 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] |