Mercurial > repos > jfb > kinatest_7_7
changeset 2:00e1ca8f787c draft
Uploaded
| author | jfb |
|---|---|
| date | Tue, 27 Feb 2018 15:24:12 -0500 |
| parents | eb1ba6a4efe8 |
| children | ef1c1412e275 |
| files | kinatestid_r/Kinatest-R.R |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/kinatestid_r/Kinatest-R.R Tue Feb 27 15:10:33 2018 -0500 +++ b/kinatestid_r/Kinatest-R.R Tue Feb 27 15:24:12 2018 -0500 @@ -587,10 +587,10 @@ PercentTable<-rbind(HeaderSD,PercentTable) row.names(PercentTable)<-NULL PercentTable<-data.frame(SetOfAAs,PercentTable) -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)