Description Usage Arguments Value See Also Examples
Run MCMC estimation for time series using JAGS. Can either be run on a single time series of a set of time series.
1 2 3 4 5 | runMCMC(input.data, method, nyears = NULL, obs.err = TRUE,
measurement.err = TRUE, cs.arma = NULL, cs.smoothing = TRUE,
time.trend = FALSE, nserror.estimated = TRUE, order = NULL, I = 2.5,
matern.cov = TRUE, nchains = 3, nburnin = 1000, niter = 2000,
nthin = 1, model.file.path = NULL, model.save.file.path = "R/model.txt")
|
input.data |
Input data to JAGS.
If single country, this is a dataframe of x and y observations, and standard errors around ys.
If a global run, this is a list of required input data. See |
method |
The method of smoothing to implement (choices: ar, arma, splines, gp) |
nyears |
For single country runs: number of years of observations |
obs.err |
For single country runs: is TRUE if standard errors are observed |
measurement.err |
For single country runs: is TRUE if there is assumed to be measurement error |
cs.arma |
For global runs: whether ARMA parameter(s) are country specific. If 'FALSE', parameter is global. |
cs.smoothing |
For global runs: whether smoothing paramter is country specific. If 'FALSE', smoothing parameter is global. |
time.trend |
For global runs: if 'TRUE' a linear time trend is estimated. |
nserror.estimated |
For global runs: whether to estimate non-sampling error. IF 'FALSE', fixed sampling error is inputted. |
order |
The order of splines penalization (either 1 or 2) |
I |
Knot spacing for splines |
matern.cov |
Whether or not to use Matern covariance function if |
nchains |
Number of MCMC chains |
nburnin |
Number of iterations to throw away as burn in. |
niter |
Number of total iterations. |
nthin |
Degree of thinning of MCMC chains |
model.file.path |
Text file which contains the model to be fitted. If |
model.save.file.path |
For global runs: path to save model, if written. |
A JAGS model object
1 2 3 4 5 6 7 8 9 10 | nyears <- 100
prop.sample <- 0.7
obs.err <- TRUE
sigma.y <- 0.5
seed <- 123
method <- 'splines'
params <- list(sigma.alpha = 1, order = 1)
df <- simulateFluctuations(nyears, prop.sample, method, params, obs.err, sigma.y)
df$se <- 1
mod <- runMCMC(input.data = df, nyears = 100, method = "splines", order = 1,nchains = 4, nburnin = 100, niter = 100+3000, nthin = 3)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.