Updates to manual, sheets and final report

Parses.R

@@ -85,6 +85,7 @@ getInitial <- function(string, letter) {
 }
 
 split <- function(cell) {
+  
   params <- unlist(strsplit(cell, ","))
   values <- rep(0, length(states))
 
@@ -151,7 +152,7 @@ buildGraph <- function(model, desc) {
   }
 
   print("about to build network")
-  #print(paste0(inputText, edges))
+  print(paste0(inputText, edges))
 
   net <- model2network(paste0(inputText, edges), debug = FALSE)
 
@@ -246,8 +247,6 @@ getValidNodes <- function(mapping, prevOutputs, prefix) {
     coefs[idx,] <-  as.numeric(split(mapping[1, col]))[match(c("growth", "confidence", "layer"), states)]
   }
 
-  #print(coefs)
-
   return(data.frame(
     code = c(prevOutputs$code, paste0(prefix, seq(1:length(outNodes)))),
     name = c(prevOutputs$name, outNodes),