Mercurial > repos > jfb > kinatest_fisher_test
changeset 3:203c72c1c2ea draft
Uploaded
author | jfb |
---|---|
date | Mon, 14 Jan 2019 13:55:15 -0500 |
parents | 31f6858163bd |
children | 76f8ac0fe858 |
files | KT-ID fisher test/7-7-fisher-galaxy_working.R |
diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/KT-ID fisher test/7-7-fisher-galaxy_working.R Mon Jan 14 13:33:18 2019 -0500 +++ b/KT-ID fisher test/7-7-fisher-galaxy_working.R Mon Jan 14 13:55:15 2019 -0500 @@ -3,8 +3,9 @@ PositiveSubstrateList<- read.csv("substrates.csv", stringsAsFactors=FALSE) NegativeSubstrateList<- read.csv("negatives.csv", stringsAsFactors=FALSE) -SubstrateBackgroundFrequency<- read.csv("SBF.csv", stringsAsFactors=FALSE) +SubstrateBackgroundFrequency<- read.csv("SBF.csv", stringsAsFactors=FALSE,header = FALSE) SubstrateBackgroundFrequency<-t(SubstrateBackgroundFrequency) +SubstrateBackgroundFrequency<-SubstrateBackgroundFrequency[2:nrow(SubstrateBackgroundFrequency),] ScreenerFilename<-"screener" screaner<-read.csv(ScreenerFilename, header = FALSE, stringsAsFactors = FALSE)