recommitting plot 4 and 5 due to R error