2. Run in R