
zoom(fun = plot, zoom.col = "red", delay = 3, ...)
i <- 1:100
y <- i*sin(i*(pi/16))
y <- c(rev(y),y)
## Not run:
zoom(fun=plot, zoom.col="red", x=1:200, y=y, ty="l", xlab="index")
## End( Not run)
Run the code above in your browser using DataLab