added my contribution to R course