add_lagr.mcgf {mcgf} | R Documentation |
Add lagr model outputted from fit_lagr()
to a mcgf
object.
Description
Add lagr model outputted from fit_lagr()
to a mcgf
object.
Usage
## S3 method for class 'mcgf'
add_lagr(x, fit_lagr, ...)
lagr(x) <- value
Arguments
x |
An |
fit_lagr |
Output from the |
... |
Additional arguments. Not in use. |
value |
A list containing the lagr model as well as its parameters. It
must contains |
Value
x
with newly added attributes of the Lagrangian model.
See Also
Other functions on fitting an mcgf:
add_base.mcgf()
,
fit_base.mcgf()
,
fit_lagr.mcgf()
,
krige.mcgf()
,
krige_new.mcgf()
Examples
data(sim1)
sim1_mcgf <- mcgf(sim1$data, dists = sim1$dists)
sim1_mcgf <- add_acfs(sim1_mcgf, lag_max = 5)
sim1_mcgf <- add_ccfs(sim1_mcgf, lag_max = 5)
# Fit a separable model and store it to 'sim1_mcgf'
fit_sep <- fit_base(
sim1_mcgf,
model = "sep",
lag = 5,
par_init = c(
c = 0.001,
gamma = 0.5,
a = 0.3,
alpha = 0.5
),
par_fixed = c(nugget = 0)
)
sim1_mcgf <- add_base(sim1_mcgf, fit_base = fit_sep)
# Fit a Lagrangian model
fit_lagr <- fit_lagr(
sim1_mcgf,
model = "lagr_tri",
par_init = c(v1 = 300, v2 = 300, lambda = 0.15),
par_fixed = c(k = 2)
)
# Store the fitted Lagrangian model to 'sim1_mcgf'
sim1_mcgf <- add_lagr(sim1_mcgf, fit_lagr = fit_lagr)
model(sim1_mcgf, old = TRUE)
[Package mcgf version 1.1.1 Index]