Added plots 1-4 and appropriate R-code