added R code to start and run new deck