R scrips for workshops