R_Programming_Class_work