typo in usage

source("plot5.R") -> source("plot4.R")