data(tsresiduals)
plot(tsresiduals)
hist(tsresiduals$residuals)
cutoffs = c(seq(-1.07, -.51, length.out = 15), seq(-.5, .5, length.out=70),
seq(.51, 2.42, length.out = 16))
plot(tsresiduals, cutoffs = cutoffs)
Run the code above in your browser using DataLab