Mercurial > repos > jfb > difference_finder

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Wed, 16 Jan 2019 14:20:15 -0500
parents 23eea82f5192
children beba4066121e
comparison
equal deleted inserted replaced
0:23eea82f5192 1:110a74dff8e1
52 52
53 FirstEsses<-sapply(FirstCentralLetters, grepl, pattern="S", ignore.case=TRUE) 53 FirstEsses<-sapply(FirstCentralLetters, grepl, pattern="S", ignore.case=TRUE)
54 FirstTees<-sapply(FirstCentralLetters, grepl, pattern="T", ignore.case=TRUE) 54 FirstTees<-sapply(FirstCentralLetters, grepl, pattern="T", ignore.case=TRUE)
55 FirstWys<-sapply(FirstCentralLetters, grepl, pattern="Y", ignore.case=TRUE) 55 FirstWys<-sapply(FirstCentralLetters, grepl, pattern="Y", ignore.case=TRUE)
56 56
57 SecondEsses<-sapply(FirstCentralLetters, grepl, pattern="S", ignore.case=TRUE) 57 SecondEsses<-sapply(SecondCentralLetters, grepl, pattern="S", ignore.case=TRUE)
58 SecondTees<-sapply(FirstCentralLetters, grepl, pattern="T", ignore.case=TRUE) 58 SecondTees<-sapply(SecondCentralLetters, grepl, pattern="T", ignore.case=TRUE)
59 SecondWys<-sapply(FirstCentralLetters, grepl, pattern="Y", ignore.case=TRUE) 59 SecondWys<-sapply(SecondCentralLetters, grepl, pattern="Y", ignore.case=TRUE)
60 60
61 FirstCentralLetters<-replace(FirstCentralLetters,FirstEsses,"xS") 61 FirstCentralLetters<-replace(FirstCentralLetters,FirstEsses,"xS")
62 FirstCentralLetters<-replace(FirstCentralLetters,FirstTees,"xT") 62 FirstCentralLetters<-replace(FirstCentralLetters,FirstTees,"xT")
63 FirstCentralLetters<-replace(FirstCentralLetters,FirstWys,"xY") 63 FirstCentralLetters<-replace(FirstCentralLetters,FirstWys,"xY")
64 64
65 SecondCentralLetters<-replace(SecondCentralLetters,FirstEsses,"xS") 65 SecondCentralLetters<-replace(SecondCentralLetters,SecondEsses,"xS")
66 SecondCentralLetters<-replace(SecondCentralLetters,FirstTees,"xT") 66 SecondCentralLetters<-replace(SecondCentralLetters,SecondTees,"xT")
67 SecondCentralLetters<-replace(SecondCentralLetters,FirstWys,"xY") 67 SecondCentralLetters<-replace(SecondCentralLetters,SecondWys,"xY")
68
69 FirstCentralLetters->FirstSubstrateSet[,11]
70 SecondCentralLetters->SecondSubstrateSet[,11]
68 71
69 #################################################################################################################################### 72 ####################################################################################################################################
70 #################################################################################################################################### 73 ####################################################################################################################################
71 # better version of this code written in C: what happens when two kinases share a motif, but they found that motif in two 74 # better version of this code written in C: what happens when two kinases share a motif, but they found that motif in two
72 # separate proteins thus two separate accession numbers? 75 # separate proteins thus two separate accession numbers?
318 321
319 SecondEsses<-sapply(SecondCentralLettersAGAIN, grepl, pattern="S", ignore.case=TRUE) 322 SecondEsses<-sapply(SecondCentralLettersAGAIN, grepl, pattern="S", ignore.case=TRUE)
320 SecondTees<-sapply(SecondCentralLettersAGAIN, grepl, pattern="T", ignore.case=TRUE) 323 SecondTees<-sapply(SecondCentralLettersAGAIN, grepl, pattern="T", ignore.case=TRUE)
321 SecondWys<-sapply(SecondCentralLettersAGAIN, grepl, pattern="Y", ignore.case=TRUE) 324 SecondWys<-sapply(SecondCentralLettersAGAIN, grepl, pattern="Y", ignore.case=TRUE)
322 325
323 SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,FirstEsses,"xS") 326 SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,SecondEsses,"xS")
324 SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,FirstTees,"xT") 327 SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,SecondTees,"xT")
325 SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,FirstWys,"xY") 328 SecondCentralLettersAGAIN<-replace(SecondCentralLettersAGAIN,SecondWys,"xY")
326 329
327 SecondCentralLettersAGAIN->D835Youtputmatrix2[,11] 330 SecondCentralLettersAGAIN->D835Youtputmatrix2[,11]
328 331
329 D835Youtputmatrix2<-rbind(D835Yheader,D835Youtputmatrix2) 332 D835Youtputmatrix2<-rbind(D835Yheader,D835Youtputmatrix2)
330 333