data(PfilterSample)
y <- PfilterSample
if (FALSE) {
pfilter(y, m = 100000, model = 0, lag = 20, initd = 0, sigma2 = 1.048,
tau2 = 1.4e-2, xrange = c(-4, 4), seed = 2019071117)
pfilter(y, m = 100000, model = 1, lag = 20 , initd = 0, sigma2 = 1.045,
tau2 = 3.53e-5, xrange = c(-4, 4), seed = 2019071117)
pfilter(y, m = 100000, model = 2, lag = 20 , initd = 0, sigma2 = 1.03,
tau2 = 0.00013, alpha = 0.991, xrange = c(-4, 4), seed = 2019071117)
}
Run the code above in your browser using DataLab