Changeset 15936


Ignore:
Timestamp:
05/16/18 07:57:53 (23 months ago)
Author:
gkronber
Message:

#2886 mapping GP solutions in R

Location:
branches/2886_SymRegGrammarEnumeration/ExpressionClustering_R
Files:
3 added
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2886_SymRegGrammarEnumeration/ExpressionClustering_R/ClusteringScript.R

    r15927 r15936  
    33library(dplyr)
    44
    5 setwd("D:/heal/documents/trunk/Publications/2018/GPTP/data");
    6 
     5#setwd("D:/heal/documents/trunk/Publications/2018/GPTP/data");
     6setwd("C:/reps/HEAL/Publications-2018-GPTP/data");
    77sentenceFileName <- "evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv.gz";
    88
     
    107107
    108108
    109 write.csv2(m, "mapping_evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv.gz");
     109#write.csv2(m, "mapping_evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv");
     110m <- read.csv2("mapping_evaluations_allSentences_2018-04-13_16-40_TreeSize-7_1d.csv");
    110111
    111 cluster_n <- dplyr::filter(m, c==5);
     112cluster_n <- dplyr::filter(m, c==9);
    112113cluster_evals <- data.frame(x=seq(1,100,1), t(cluster_n[,5:104]))
    113114evals_cluster_n <- tidyr::gather(cluster_evals,"f", "fx", 2:ncol(cluster_evals))
Note: See TracChangeset for help on using the changeset viewer.