RegressionTesting

ralmond · Nov 15, 2019 · 065dc6c · 065dc6c
1 parent 3a36505
commit 065dc6c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/Experience.R b/R/Experience.R
@@ -33,7 +33,9 @@ NodeExperience <- function (node) {
   if (!is.numeric(value)) {
     stop("Value must be numeric")
   }
+  dv <- dim(value)
   value <- as.numeric(value)            #Must be real
+  dim(value) <- dv                      #as.numeric does not preserve dim()
   parnames <- ParentStates(node)
   statecounts <- sapply(parnames,length)
   if (length(statecounts) == 0L) {