bnp

commit 19189e64bf6f43ce99ff6607055dbfa9a54f68f4
parent b67e012c925f9dd0c95fcb1b56a07510fbf0105b
Author: Jared Tobin <jared@jtobin.ca>
Date:   Wed,  9 Mar 2016 16:37:03 +1300

Add likelihood plot.

Diffstat:
M
finite-gaussian-mixture/src/simulation_conditional.r
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/finite-gaussian-mixture/src/simulation_conditional.r b/finite-gaussian-mixture/src/simulation_conditional.r
@@ -12,7 +12,7 @@ config = list(
   , r = 0.1
   , b = 1
   , w = 1
-  , n = 500
+  , n = 1000
   )
 
 origin = list(
@@ -32,6 +32,7 @@ params = inverse_model(
 dp = melt(as.data.frame(params$p))
 dm = melt(as.data.frame(params$m))
 ds = melt(as.data.frame(params$s))
+dl = melt(as.data.frame(params$l))
 
 py = ggplot(d, aes(value, colour = factor(L1), fill = factor(L1))) +
        geom_density(alpha = 0.5)
@@ -45,3 +46,6 @@ pm = ggplot(dm, aes(x = seq_along(value), y = value, colour = variable)) +
 ps = ggplot(ds, aes(x = seq_along(value), y = value, colour = variable)) +
        geom_line()
 
+pl = ggplot(dl, aes(x = seq_along(value), y = value, colour = variable)) +
+       geom_line()
+