Finishing wk1

plots and R files for wk1