argument interval=c(-1000, 1000) in predint function