Create r_prog2.R