expected_values[[runno]] <- list(lik = c(-12189.22, 24396.45, 24448.03), param = c(1.3503,
4.1884, 1.3815, 3.9113, 0.19558), stdev_param = c(0.31605, 0.32478,
0.28011, 0.34216, NA), sigma = c(prop.err = 0.19558), parFixedDf = structure(list(
Estimate = c(lCl = 1.35025269860714, lVc = 4.18842237216916,
lQ = 1.38154215971149, lVp = 3.91134454058246, prop.err = 0.195584008798291
), SE = c(lCl = 0.0303528268025611, lVc = 0.0300936272113423,
lQ = 0.0508865755821368, lVp = 0.0361692609638377, prop.err = NA
), "%RSE" = c(2.24793676279053, 0.718495522593557, 3.68331688066353,
0.924727049447082, NA), "Back-transformed" = c(3.85840041992711,
65.9187136871093, 3.98103628974047, 49.9660882629773, 0.195584008798291
), "CI Lower" = c(3.63555670746992, 62.143109731551, 3.60314222225314,
46.5466060711934, NA), "CI Upper" = c(4.09490347651712, 69.923710495565,
4.39856352112574, 53.6367779959091, NA), "BSV(CV%)" = c(33.3536030480864,
32.4110927635227, 35.2420135189421, 28.5699544688974, NA),
"Shrink(SD)%" = c(1.59564393775922, 2.57625228391012, 38.9843468966166,
29.3853344794954, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0998886764852713,
0, 0, 0, 0, 0.105482163524463, 0, 0, 0, 0, 0.0784638279005847,
0, 0, 0, 0, 0.117071628610325), .Dim = c(4L, 4L), .Dimnames = list(
c("eta.Vc", "eta.Cl", "eta.Vp", "eta.Q"), c("eta.Vc", "eta.Cl",
"eta.Vp", "eta.Q"))), time = structure(list(saem = 88.9040000000005,
setup = 7.62898000000009, table = 0.0850000000000364, cwres = 7.73300000000017,
covariance = 0.0630000000001019, other = 0.310019999999298), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 20188.0874128344, AIC = 24396.4471242477,
BIC = 24448.0345007452, "Log-likelihood" = -12189.2235621238,
"Condition Number" = 2.98014204846054), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.