Replicate Function In R