How To Use Rep Function In R