expected_values[[runno]] <- list(lik = c(-11771.35, 23556.71, 23596.81), param = c(1.3919,
4.193, -0.022799, 0.19846), stdev_param = c(0.25321, 0.27471,
0.32154, NA), sigma = c(prop.err = 0.19846), parFixedDf = structure(list(
Estimate = c(lCl = 1.39193244443612, lVc = 4.19299139013816,
lKA = -0.0227992396014877, prop.err = 0.198462178668641),
SE = c(lCl = 0.0242419081890928, lVc = 0.026484925173279,
lKA = 0.0338497363383738, prop.err = NA), "%RSE" = c(1.74160091504393,
0.631647497191886, 148.468707422001, NA), "Back-transformed" = c(4.02261602888268,
66.2205865806204, 0.977458699074442, 0.198462178668641),
"CI Lower" = c(3.8359578826689, 62.8708040036965, 0.914714299259166,
NA), "CI Upper" = c(4.21835698168967, 69.7488469659719, 1.04450702166798,
NA), "BSV(CV%)" = c(25.7319654261049, 27.997540919137, 33.0036595966497,
NA), "Shrink(SD)%" = c(1.62905872504661, 3.14216612276864,
10.3017585343813, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.0641134975175392,
0, 0, 0, 0.0754656919473793, 0, 0, 0, 0.103390315296522), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(setup = 5.25634799999999,
optimize = 14.559941, covariance = 14.559943, table = 0.0929999999999609,
other = 23.7587680000001), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 19365.2132220028, AIC = 23556.7077939513,
BIC = 23596.8097847182, "Log-likelihood" = -11771.3538969756,
"Condition Number" = 1.97907320376184), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.