Mercurial > repos > jfb > kinatest_7_7

comparison kinatestid_r/Kinatest-R.R @ 2:00e1ca8f787c draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Tue, 27 Feb 2018 15:24:12 -0500
parents eb1ba6a4efe8
children ef1c1412e275
comparison
equal deleted inserted replaced
1:eb1ba6a4efe8 2:00e1ca8f787c
585 SDtable<-data.frame(SetOfAAs,SDtable) 585 SDtable<-data.frame(SetOfAAs,SDtable)
586 586
587 PercentTable<-rbind(HeaderSD,PercentTable) 587 PercentTable<-rbind(HeaderSD,PercentTable)
588 row.names(PercentTable)<-NULL 588 row.names(PercentTable)<-NULL
589 PercentTable<-data.frame(SetOfAAs,PercentTable) 589 PercentTable<-data.frame(SetOfAAs,PercentTable)
590 numberofY<-as.numeric(SubstrateBackgroundFrequency$Number.of.Y) 590 numberofY<-as.numeric(SubstrateBackgroundFrequency[,34])
591 numberofY<-numberofY[!is.na(numberofY)] 591 numberofY<-numberofY[!is.na(numberofY)]
592 592
593 numberofPY<-as.numeric(SubstrateBackgroundFrequency$Number.of.pY) 593 numberofPY<-as.numeric(SubstrateBackgroundFrequency[,35])
594 numberofPY<-numberofPY[!is.na(numberofPY)] 594 numberofPY<-numberofPY[!is.na(numberofPY)]
595 595
596 NormalizationScore<-sum(numberofPY)/sum(numberofY) 596 NormalizationScore<-sum(numberofPY)/sum(numberofY)
597 597
598 # positions<-matrix(data = NA, nrow=20,ncol = 15) 598 # positions<-matrix(data = NA, nrow=20,ncol = 15)