An Accurate Nonstandard Scheme of Predictor-Corrector Type for a SIR Epidemic Model