| Previous changeset 2:31f6858163bd (2019-01-14) Next changeset 4:76f8ac0fe858 (2019-01-14) |
|
Commit message:
Uploaded |
|
modified:
KT-ID fisher test/7-7-fisher-galaxy_working.R |
| b |
| diff -r 31f6858163bd -r 203c72c1c2ea KT-ID fisher test/7-7-fisher-galaxy_working.R --- 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) |