# Use S3 Method
# Generate AR(1) time series
sim <- stats::arima.sim(list(order = c(1, 0, 0), ar = 0.5),
n = 500, innov = rnorm(500))
b <- pwsd(sim, round = TRUE, correlogram = FALSE)
plot(b)
Run the code above in your browser using DataLab