data(gresiduals)
plot(gresiduals)
hist(gresiduals$residuals)
cutoffs = c(seq(-2.74, -1.01, length.out = 15),
seq(-1, 1, length.out = 70), seq(1, 3.83, length.out = 16))
plot(gresiduals, cutoffs = cutoffs)
Run the code above in your browser using DataLab