Simple Particle Filter In Nimble R