reset par to default

CRAN-RELEASE

@@ -1,2 +1,2 @@
-This package was submitted to CRAN on 2020-10-20.
-Once it is accepted, delete this file and tag the release (commit 41aee5d).
+This package was submitted to CRAN on 2020-10-30.
+Once it is accepted, delete this file and tag the release (commit bf79c78).

R/data_gen_Chaotic.R

@@ -43,12 +43,14 @@
 #' ts.r <- data.gen.Rossler(a = 0.1, b = 0.1, w = 8.7, start = c(-2, -10, 0.2),
 #'                          time = seq(0, by=0.05, length.out = 10000))
 #'
+#' oldpar <- par(no.readonly = TRUE)
 #' par(mfrow=c(1,1), ps=12, cex.lab=1.5)
 #' plot.ts(cbind(ts.r$x,ts.r$y,ts.r$z), col=c("black","red","blue"))
 #'
 #' par(mfrow=c(1,2), ps=12, cex.lab=1.5)
 #' plot(ts.r$x,ts.r$y, xlab="x",ylab = "y", type = "l")
 #' plot(ts.r$x,ts.r$z, xlab="x",ylab = "z", type = "l")
+#' par(oldpar)
 
 data.gen.Rossler <- function(a = 0.2, b = 0.2, w = 5.7, start=c(-2, -10, 0.2),
                              time = seq(0, by=0.05, length.out = 1000), s) {