?rnorm
?rnorm
?rnorm
pwr
?pwr
??pwr
power.t.test(n=6, power = .7, type = "two.sample", alternative = "two.sided")
power.t.test(n=6, power = .9, type = "two.sample", alternative = "two.sided")
setwd("C:/Users/John Blankenhor/Downloads/commonality_finder-3e5fdf933646/commonality_finder-3e5fdf933646/C and D finder")
FirstSubstrateSet<- read.csv("input1.csv", stringsAsFactors=FALSE)
Firstsubbackfreq<- read.csv("input2.csv", header=FALSE, stringsAsFactors=FALSE)
SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE)
SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, sep = ",")
SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, header = TRUE)
SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, header = FALSE)
FirstSubstrateSet<- read.csv("input1.csv", stringsAsFactors=FALSE, header = FALSE)
FirstSubstrateSet<- FirstSubstrateSet[2:nrow(FirstSubstrateSet),]
FirstSubstrateSet<- read.csv("input1.csv", stringsAsFactors=FALSE, header = FALSE)
Firstsubbackfreq<- read.csv("input2.csv", header=FALSE, stringsAsFactors=FALSE)
FirstSubstrateSet<- FirstSubstrateSet[2:nrow(FirstSubstrateSet),]
SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, header = FALSE)
Secondsubbackfreq<- read.csv("input4.csv", header=FALSE, stringsAsFactors=FALSE)
SecondSubstrateSet<- SecondSubstrateSet[2:nrow(SecondSubstrateSet),]
ThirdSubstrateSet<- read.csv("input5.csv", stringsAsFactors=FALSE, header = FALSE)
Thirdsubbackfreq<- read.csv("input6.csv", header=FALSE, stringsAsFactors=FALSE)
ThirdSubstrateSet<- ThirdSubstrateSet[2:nrow(ThirdSubstrateSet),]
source('C:/Users/John Blankenhor/Downloads/commonality_finder-3e5fdf933646/commonality_finder-3e5fdf933646/C and D finder/CandD.R')
#ff you want ONLY FULL MOTIFS, put "YES" here, please use all caps
FullMotifsOnly_questionmark<-"YES"