Add initial .R files to create plots 3&4