commit 7807cf266fc3ea20248a1aee62b49bee3acfb64d
parent 5c275852a155c1189b9bc12f8fecd0a627b18d4a
Author: Jared Tobin <jared@jtobin.ca>
Date: Mon, 14 Oct 2013 09:15:42 +1300
Rollback refactoring changes - it removed required memoization.
Diffstat:
1 file changed, 0 insertions(+), 7 deletions(-)
diff --git a/src/Numeric/MCMC/NUTS.hs b/src/Numeric/MCMC/NUTS.hs
@@ -140,13 +140,6 @@ buildTree lTarget glTarget g t r logu v j e = do
return (tnn, rnn, tpp, rpp, t2, n2, s2)
else return (tn, rn, tp, rp, t0, n0, s0)
--- | Simulate Hamiltonian dynamics for n steps.
-leapfrogIntegrator :: Int -> Gradient -> Particle -> Double -> Particle
-leapfrogIntegrator n glTarget particle e = go particle n
- where go state ndisc
- | ndisc <= 0 = state
- | otherwise = go (leapfrog glTarget state e) (pred n)
-
-- | Simulate a single step of Hamiltonian dynamics.
leapfrog :: Gradient -> Particle -> Double -> Particle
leapfrog glTarget (t, r) e = (tf, rf)