Merge branch 'master' of https://github.com/nolanlab/citrus

nolanlab · Apr 29, 2015 · 0d308ab · 0d308ab
2 parents 88140fe + 847f954
commit 0d308ab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/citrus.plot.R b/R/citrus.plot.R
@@ -132,7 +132,7 @@ citrus.plotModelDifferentialFeatures.classification = function(differentialFeatu
     nonzeroFeatureNames = differentialFeatures[[cvPoint]][["features"]]
 
     # Write features to file for easy parsing
-    write.table(features[,nonzeroFeatureNames],file=file.path(modelOutputDirectory,paste("features_",cvPoint,".csv",sep="")),quote=F,sep=",")
+    write.csv(features[,nonzeroFeatureNames],file=file.path(modelOutputDirectory,paste("features_",cvPoint,".csv",sep="")),quote=F)
 
     melted = melt(data.frame(features[,nonzeroFeatureNames,drop=F],labels=labels,check.names=F),id.vars="labels")
 
@@ -154,7 +154,7 @@ citrus.plotModelDifferentialFeatures.continuous = function(differentialFeatures,
     nonzeroFeatureNames = differentialFeatures[[cvPoint]][["features"]]
 
     # Write features to file for easy parsing
-    write.table(features[,nonzeroFeatureNames],file=file.path(modelOutputDirectory,paste("features_",cvPoint,".csv",sep="")),quote=F,sep=",")
+    write.csv(features[,nonzeroFeatureNames],file=file.path(modelOutputDirectory,paste("features_",cvPoint,".csv",sep="")),quote=F)
 
     melted = melt(data.frame(features[,nonzeroFeatureNames,drop=F],labels=labels,check.names=F),id.vars="labels")