Update particle.R