Stubbing out plot4.R