Mercurial > repos > jfb > kinatest_7_7

changeset 7:231e41a2d167 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Wed, 28 Feb 2018 11:06:22 -0500
parents 891f465be772
children bdf3a0688d67
files kinatestid_r/Kinatest-R.R
diffstat 1 files changed, 13 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/kinatestid_r/Kinatest-R.R	Wed Feb 28 11:01:21 2018 -0500
+++ b/kinatestid_r/Kinatest-R.R	Wed Feb 28 11:06:22 2018 -0500
@@ -1774,79 +1774,79 @@
 AblThresh<-as.numeric(Abl[24,1])
 AblTrueThresh<-((AblThresh*AblNorm)/(100-AblThresh))
 AblActive<-unlist(AblGeneratedScores)>AblTrueThresh
-If(TodaysKinase=="ABL"){AblActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="ABL"){AblActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 ArgNorm<-1/as.numeric(Arg[22,1])
 ArgThresh<-as.numeric(Arg[24,1])
 ArgTrueThresh<-((ArgThresh*ArgNorm)/(100-ArgThresh))
 ArgActive<-unlist(ArgGeneratedScores)>ArgTrueThresh
-If(TodaysKinase=="ARG"){ArgActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="ARG"){ArgActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 BtkNorm<-1/as.numeric(Btk[22,1])
 BtkThresh<-as.numeric(Btk[24,1])
 BtkTrueThresh<-((BtkThresh*BtkNorm)/(100-BtkThresh))
 BtkActive<-unlist(BtkGeneratedScores)>BtkTrueThresh
-If(TodaysKinase=="BTK"){BtkActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="BTK"){BtkActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 CskNorm<-1/as.numeric(Csk[22,1])
 CskThresh<-as.numeric(Csk[24,1])
 CskTrueThresh<-((CskThresh*CskNorm)/(100-CskThresh))
 CskActive<-(CskGeneratedScores)>CskTrueThresh
-If(TodaysKinase=="CSK"){CskActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="CSK"){CskActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 FynNorm<-1/as.numeric(Fyn[22,1])
 FynThresh<-as.numeric(Fyn[24,1])
 FynTrueThresh<-((FynThresh*FynNorm)/(100-FynThresh))
 FynActive<-unlist(FynGeneratedScores)>FynTrueThresh
-If(TodaysKinase=="FYN"){FynActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="FYN"){FynActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 HckNorm<-1/as.numeric(Hck[22,1])
 HckThresh<-as.numeric(Hck[24,1])
 HckTrueThresh<-((HckThresh*HckNorm)/(100-HckThresh))
 HckActive<-unlist(HckGeneratedScores)>HckTrueThresh
-If(TodaysKinase=="HCK"){HckActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="HCK"){HckActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 JAK2Norm<-1/as.numeric(JAK2[22,1])
 JAK2Thresh<-as.numeric(JAK2[24,1])
 JAK2TrueThresh<-((JAK2Thresh*JAK2Norm)/(100-JAK2Thresh))
 JAk2Active<-unlist(JAK2GeneratedScores)>JAK2TrueThresh
-If(TodaysKinase=="JAK2"){JAk2Active<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="JAK2"){JAk2Active<-rep(0,times=nrow(GeneratedPeptides))}
 
 LckNorm<-1/as.numeric(Lck[22,1])
 LckThresh<-as.numeric(Lck[24,1])
 LckTrueThresh<-((LckThresh*LckNorm)/(100-LckThresh))
 LckActive<-unlist(LckGeneratedScores)>LckTrueThresh
-If(TodaysKinase=="LCK"){LckActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="LCK"){LckActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 LynNorm<-1/as.numeric(Lyn[22,1])
 LynThresh<-as.numeric(Lyn[24,1])
 LynTrueThresh<-((LynThresh*LynNorm)/(100-LynThresh))
 LynActive<-unlist(LynGeneratedScores)>LynTrueThresh
-If(TodaysKinase=="LYN"){LynActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="LYN"){LynActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 Pyk2Norm<-1/as.numeric(Pyk2[22,1])
 Pyk2Thresh<-as.numeric(Pyk2[24,1])
 Pyk2TrueThresh<-((Pyk2Thresh*Pyk2Norm)/(100-Pyk2Thresh))
 Pyk2Active<-unlist(Pyk2GeneratedScores)>Pyk2TrueThresh
-If(TodaysKinase=="PYK2"){Pyk2Active<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="PYK2"){Pyk2Active<-rep(0,times=nrow(GeneratedPeptides))}
 
 SrcNorm<-1/as.numeric(Src[22,1])
 SrcThresh<-as.numeric(Src[24,1])
 SrcTrueThresh<-((SrcThresh*SrcNorm)/(100-SrcThresh))
 SrcActive<-unlist(SrcGeneratedScores)>SrcTrueThresh
-If(TodaysKinase=="SRC"){SrcActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="SRC"){SrcActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 SykNorm<-1/as.numeric(Syk[22,1])
 SykThresh<-as.numeric(Syk[24,1])
 SykTrueThresh<-((SykThresh*SykNorm)/(100-SykThresh))
 SykActive<-unlist(SykGeneratedScores)>SykTrueThresh
-If(TodaysKinase=="SYK"){SykActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="SYK"){SykActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 YesNorm<-1/as.numeric(Yes[22,1])
 YesThresh<-as.numeric(Yes[24,1])
 YesTrueThresh<-((YesThresh*YesNorm)/(100-YesThresh))
 YesActive<-unlist(YesGeneratedScores)>YesTrueThresh
-If(TodaysKinase=="YES"){YesActive<-rep(0,times=nrow(GeneratedPeptides))}
+if (TodaysKinase=="YES"){YesActive<-rep(0,times=nrow(GeneratedPeptides))}
 
 AllActive<-AblActive+ArgActive+BtkActive+CskActive+FynActive+HckActive+JAk2Active+LckActive+LynActive+Pyk2Active+SrcActive+SykActive+YesActive+FLT3Active
 #Btkactive+