Create swirl_R_program.R