PA1 done.

for R Programming.