r-prog-assignement2