add visual unit tests for mcmc_trace() and mcmc_trace_highlight()

Author: tjmahr

tests/figs/mcmc-traces/mcmc-trace-default.svg

@@ -26,4 +26,16 @@ dframe_multiple_chains$chain <- rep(1:4, 25)
 
 set.seed(11172017)
 vdiff_dframe <- as.data.frame(matrix(rnorm(1000), nrow = 100, ncol = 5))
+vdiff_dframe_chains <- as.data.frame(
+  matrix(rnorm(4000), nrow = 2000, ncol = 2)
+)
+vdiff_dframe_chains$chain <- rep(1:4, each = 500)
+
+vdiff_dframe_chains_divergences <- data.frame(
+  Iteration = rep(1:500, each = 4),
+  Parameter = "divergent__",
+  Value = rbinom(2000, size = 1, prob = .02),
+  Chain = vdiff_dframe_chains$chain,
+  stringsAsFactors = FALSE
+)
 set.seed(seed = NULL)