[FIX] no header on tmp csv(#89) [skip travis-ci]

Author: diviyank

cdt/causality/graph/R_templates/CCDr.R

@@ -24,7 +24,7 @@
 library(sparsebn)
 library(MASS)
 
-dataset <- read.csv(file='{FOLDER}{FILE}', sep=",");
+dataset <- read.csv(file='{FOLDER}{FILE}', header=FALSE, sep=",");
 dat <- sparsebnData(as.matrix(dataset), type = "c");
 estDAG <- estimate.dag(data = dat);
 

cdt/causality/graph/R_templates/cam.R

@@ -23,7 +23,7 @@
 
 library(CAM)
 
-dataset <- read.csv(file='{FOLDER}{FILE}', sep=",");
+dataset <- read.csv(file='{FOLDER}{FILE}', header=FALSE, sep=",");
 estDAG <- CAM(dataset, scoreName = "{SCORE}", numCores = {NJOBS}, output = {VERBOSE},
               variableSel = {VARSEL}, variableSelMethod = {SELMETHOD}, pruning = {PRUNING},
               pruneMethod = {PRUNMETHOD}, pruneMethodPars = list(cutOffPVal = {CUTOFF}))

cdt/causality/graph/R_templates/ges.R

@@ -23,7 +23,7 @@
 library(methods)
 library(pcalg)
 
-dataset <- read.csv(file='{FOLDER}{FILE}', sep=",");
+dataset <- read.csv(file='{FOLDER}{FILE}', header=FALSE, sep=",");
 
 if({SKELETON}){
   fixedGaps <- read.csv(file='{FOLDER}{GAPS}', sep=",", header=FALSE) # NULL

cdt/causality/graph/R_templates/gies.R

@@ -23,7 +23,7 @@
 library(methods)
 library(pcalg)
 
-dataset <- read.csv(file='{FOLDER}{FILE}', sep=",");
+dataset <- read.csv(file='{FOLDER}{FILE}', header=FALSE, sep=",");
 
 if({SKELETON}){
   fixedGaps <- read.csv(file='{FOLDER}{GAPS}', sep=",", header=FALSE) # NULL

cdt/causality/graph/R_templates/lingam.R

@@ -22,6 +22,6 @@
 
 library(pcalg)
 
-dataset <- read.csv(file='{FOLDER}{FILE}', sep=",");
+dataset <- read.csv(file='{FOLDER}{FILE}', header=FALSE, sep=",");
 estDAG <- lingam(dataset, verbose = {VERBOSE})
 write.csv(as.matrix(estDAG$Bpruned),row.names = FALSE, file = '{FOLDER}{OUTPUT}');

cdt/causality/graph/R_templates/pc.R

@@ -74,7 +74,7 @@ runPC <- function(X, suffStat, parentsOf, alpha, variableSelMat, setOptions,
   list(resList = result, resMat = pcmat)
 }
 
- dataset <- read.csv(file='{FOLDER}{FILE}', sep=",");
+ dataset <- read.csv(file='{FOLDER}{FILE}', header=FALSE, sep=",");
 
 variableSelMat = {SELMAT}  # NULL
 directed = {DIRECTED}  # TRUE