Add code for preparing wrighton

R.preprocessing/preprocessing.R

@@ -5,6 +5,7 @@ source("R.preprocessing/SymmetrizedSignatures.R")
 source("R.preprocessing/ExtractESCG.R")
 source("R.preprocessing/PrepareDataForInteractiveBinning.R")
 
+# Prepare the CSTR data set
 PrepareDataForInteractiveBinning(
  dataset.name = "cstr",
  file.fasta  = "data//cstr_assembled.fasta",
@@ -14,5 +15,15 @@ PrepareDataForInteractiveBinning(
  dir.result = "R.ICoBiRe//data"
 )
 
+# Prepare the Wrighton data set
+PrepareDataForInteractiveBinning(
+  dataset.name = "wrighton",
+  file.fasta  = "data//wrighton_assembled.fasta",
+  file.abundance = "data//wrighton_avg_coverage.csv",
+  file.escg = "data//wrighton_escg.csv",
+  file.clusterings = "data//wrighton_clusterings.csv",
+  dir.result = "R.ICoBiRe//data"
+)
+
 #library(devtools)
 #install_local(file.path(getwd(), "R.ICoBiRe"))