--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/C and D finder/.Rhistory	Wed Dec 11 13:35:46 2019 -0500
@@ -0,0 +1,29 @@
+?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"