Mercurial > repos > jfb > kinatest_fisher_test
changeset 5:aff861ca6e2b draft
Uploaded
author | jfb |
---|---|
date | Mon, 14 Jan 2019 15:40:43 -0500 |
parents | 76f8ac0fe858 |
children | eb89ff215fb8 |
files | KT-ID fisher test/7-7-fisher-galaxy_working.R |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/KT-ID fisher test/7-7-fisher-galaxy_working.R Mon Jan 14 15:19:26 2019 -0500 +++ b/KT-ID fisher test/7-7-fisher-galaxy_working.R Mon Jan 14 15:40:43 2019 -0500 @@ -658,10 +658,10 @@ SetOfAAs<-matrix(data = SetOfAAs,ncol = 1) -numberofY<-as.numeric(SubstrateBackgroundFrequency$Number.of.Y) +numberofY<-as.numeric(SubstrateBackgroundFrequency[,34]) numberofY<-numberofY[!is.na(numberofY)] -numberofPY<-as.numeric(SubstrateBackgroundFrequency$Number.of.pY) +numberofPY<-as.numeric(SubstrateBackgroundFrequency[,35]) numberofPY<-numberofPY[!is.na(numberofPY)] NormalizationScore<-sum(numberofPY)/sum(numberofY)