Apply Command In R