R Simulation of Collective Behavior in Vicsek Model