expected_values[[runno]] <- list(lik = c(-11776.08, 23566.17, 23606.27), param = c(1.3819,
4.1888, -0.014245, 0.19819), stdev_param = c(0.25467, 0.27378,
0.32535, NA), sigma = c(prop.err = 0.19819), parFixedDf = structure(list(
Estimate = c(lCl = 1.38190148524831, lVc = 4.18875389940231,
lKA = -0.0142453382649174, prop.err = 0.198192296621262),
SE = c(lCl = 0.0237809417646215, lVc = 0.0259413265459492,
lKA = 0.0332146999227898, prop.err = NA), "%RSE" = c(1.72088546242125,
0.619308920241191, 233.161889911657, NA), "Back-transformed" = c(3.98246703477858,
65.9405711588442, 0.985855646476918, 0.198192296621262),
"CI Lower" = c(3.80110455122729, 62.6716901966237, 0.923721228267192,
NA), "CI Upper" = c(4.17248288473867, 69.3799530715201, 1.05216955716567,
NA), "BSV(CV%)" = c(25.8851653415748, 27.8995057809668, 33.4153389538262,
NA), "Shrink(SD)%" = c(1.47317574412953, 2.73451697881617,
10.3164750399653, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.0648548884094802,
0, 0, 0, 0.0749574076861066, 0, 0, 0, 0.105853033317008), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(saem = 100.833,
setup = 5.4945660000001, table = 0.0899999999999181, cwres = 5.60099999999989,
covariance = 0.0650000000000546, other = 0.300433999999967), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 19374.6711240314, AIC = 23566.1656959798,
BIC = 23606.2676867468, "Log-likelihood" = -11776.0828479899,
"Condition Number" = 1.99795200484649), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.