expected_values[[runno]] <- list(lik = c(-26151.66, 52317.33, 52362.47), param = c(1.3891,
4.2075, 0.00085279, 0.19657), stdev_param = c(0.26663, 0.28347,
0.36406, NA), sigma = c(prop.err = 0.19657), parFixedDf = structure(list(
Estimate = c(lCl = 1.38913965867242, lVc = 4.20748104925486,
lKA = 0.000852785264952719, prop.err = 0.196574662769713),
SE = c(lCl = 0.0245914943169113, lVc = 0.0266190450413026,
lKA = 0.0387031016855906, prop.err = NA), "%RSE" = c(1.77026796142391,
0.632659891504842, 4538.43461844247, NA), "Back-transformed" = c(4.01139739701386,
67.1870855170812, 1.00085314898969, 0.196574662769713), "CI Lower" = c(3.822639740403,
63.771646520815, 0.927739868016522, NA), "CI Upper" = c(4.2094756946866,
70.7854463002799, 1.07972833805687, NA), "BSV(CV%)" = c(27.1438302954505,
28.9265616606829, 37.6467549793589, NA), "Shrink(SD)%" = c(0.519876024969301,
1.89662342895451, 12.9994676172148, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.0710908380387305,
0, 0, 0, 0.0803576706375821, 0, 0, 0, 0.13254274311325), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(saem = 49.563, setup = 0.283960999999996,
table = 0.269999999999982, cwres = 0.597000000000037, covariance = 0.0769999999999982,
other = 0.290038999999958), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 43713.0883857115, AIC = 52317.3257941088,
BIC = 52362.4741877145, "Log-likelihood" = -26151.6628970544,
"Condition Number" = 2.50445711001204), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.