lab_4.r