 (defquery dirichlet-process-mixture-stick-breaking
   [input-data]
   (let
-    [concentration 10.0
+    [concentration 1.72
      base (fn []
-            (let [v (/ 1.0 (sample (gamma 1 0.1)))]
-              (list (sample (normal 0 (sqrt (* v 30)))) 
+            (let [v (/ 1.0 (sample (gamma 1 10)))]
+              (list (sample (normal 0 (sqrt (* v 10)))) 
                     (sqrt v))))
      obs-param (DPmem concentration base)]
 

  [-1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1
   7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
   3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3])
;; @@
;; =>
;;; {"type":"html","content":"<span class='clj-var'>#&#x27;worksheets.dirichlet-process-mixture-stick-breaking/test-observations</span>","value":"#'worksheets.dirichlet-process-mixture-stick-breaking/test-observations"}

(anglican.infcomp.core/reset-infcomp-addressing-scheme!)
;; @@
;; =>
;;; {"type":"html","content":"<span class='clj-unkown'>#function[anglican.infcomp.core/reset-infcomp-addressing-scheme!$fn--27378$fn--27379]</span>","value":"#function[anglican.infcomp.core/reset-infcomp-addressing-scheme!$fn--27378$fn--27379]"}
;; <=

;; @@
