|
1
|
1 ?rnorm
|
|
|
2 ?rnorm
|
|
|
3 ?rnorm
|
|
|
4 pwr
|
|
|
5 ?pwr
|
|
|
6 ??pwr
|
|
|
7 power.t.test(n=6, power = .7, type = "two.sample", alternative = "two.sided")
|
|
|
8 power.t.test(n=6, power = .9, type = "two.sample", alternative = "two.sided")
|
|
|
9 setwd("C:/Users/John Blankenhor/Downloads/commonality_finder-3e5fdf933646/commonality_finder-3e5fdf933646/C and D finder")
|
|
|
10 FirstSubstrateSet<- read.csv("input1.csv", stringsAsFactors=FALSE)
|
|
|
11 Firstsubbackfreq<- read.csv("input2.csv", header=FALSE, stringsAsFactors=FALSE)
|
|
|
12 SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE)
|
|
|
13 SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, sep = ",")
|
|
|
14 SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, header = TRUE)
|
|
|
15 SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, header = FALSE)
|
|
|
16 FirstSubstrateSet<- read.csv("input1.csv", stringsAsFactors=FALSE, header = FALSE)
|
|
|
17 FirstSubstrateSet<- FirstSubstrateSet[2:nrow(FirstSubstrateSet),]
|
|
|
18 FirstSubstrateSet<- read.csv("input1.csv", stringsAsFactors=FALSE, header = FALSE)
|
|
|
19 Firstsubbackfreq<- read.csv("input2.csv", header=FALSE, stringsAsFactors=FALSE)
|
|
|
20 FirstSubstrateSet<- FirstSubstrateSet[2:nrow(FirstSubstrateSet),]
|
|
|
21 SecondSubstrateSet<- read.csv("input3.csv", stringsAsFactors=FALSE, header = FALSE)
|
|
|
22 Secondsubbackfreq<- read.csv("input4.csv", header=FALSE, stringsAsFactors=FALSE)
|
|
|
23 SecondSubstrateSet<- SecondSubstrateSet[2:nrow(SecondSubstrateSet),]
|
|
|
24 ThirdSubstrateSet<- read.csv("input5.csv", stringsAsFactors=FALSE, header = FALSE)
|
|
|
25 Thirdsubbackfreq<- read.csv("input6.csv", header=FALSE, stringsAsFactors=FALSE)
|
|
|
26 ThirdSubstrateSet<- ThirdSubstrateSet[2:nrow(ThirdSubstrateSet),]
|
|
|
27 source('C:/Users/John Blankenhor/Downloads/commonality_finder-3e5fdf933646/commonality_finder-3e5fdf933646/C and D finder/CandD.R')
|
|
|
28 #ff you want ONLY FULL MOTIFS, put "YES" here, please use all caps
|
|
|
29 FullMotifsOnly_questionmark<-"YES"
|
