Code for R Language Seminar