Changeset 15936 for branches/2886_SymRegGrammarEnumeration/ExpressionClustering_R/ClusteringScript.R

Timestamp:

05/16/18 07:57:53 (6 years ago)

Author:

gkronber

Message:

#2886 mapping GP solutions in R

File:

• branches/2886_SymRegGrammarEnumeration/ExpressionClustering_R/ClusteringScript.R (modified) (2 diffs)

branches/2886_SymRegGrammarEnumeration/ExpressionClustering_R/ClusteringScript.R

@@ -3 +3 @@
 library(dplyr)
 
-setwd("D:/heal/documents/trunk/Publications/2018/GPTP/data");
-
+#setwd("D:/heal/documents/trunk/Publications/2018/GPTP/data");
+setwd("C:/reps/HEAL/Publications-2018-GPTP/data");
 sentenceFileName <- "evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv.gz";
 
@@ -107 +107 @@
 
 
-write.csv2(m, "mapping_evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv.gz");
+#write.csv2(m, "mapping_evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv");
+m <- read.csv2("mapping_evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv");
 
-cluster_n <- dplyr::filter(m, c==5);
+cluster_n <- dplyr::filter(m, c==9);
 cluster_evals <- data.frame(x=seq(1,100,1), t(cluster_n[,5:104]))
 evals_cluster_n <- tidyr::gather(cluster_evals,"f", "fx", 2:ncol(cluster_evals))