Create HW#1.R

Works as decribed in HW#1