updating tests for bugs_examples/vol1

Author: syclik

bugs_examples/vol1/magnesium/magnesium.init.R

@@ -9,7 +9,7 @@ structure(c(-0.5, -0.5, -0.5, -0.5, -0.5, -0.5,
             -0.5, -0.5, -0.5, -0.5, -0.5, -0.5,
             -0.5, -0.5, -0.5, -0.5, -0.5, -0.5,
             -0.5, -0.5, -0.5, -0.5, -0.5, -0.5), 
-.Dim = c(8, 6))
+.Dim = c(6, 8))
 pc <- 
 structure(c(0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
             0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
@@ -19,7 +19,7 @@ structure(c(0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
             0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
             0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
             0.5, 0.5, 0.5, 0.5, 0.5, 0.5), 
-.Dim = c(8, 6))
+.Dim = c(6, 8))
 inv_tau_sq_1 <- 1
 tau_sq_2 <- 1
 tau_3 <- 25