playground for course in R