changed rfinterval=NULL to rfinterval=c(-1000, 1000)