Week2

R Scoping