Simulate Random Walk (RW) in R