expected_values[[runno]] <- list(lik = c(-33242.35, 66498.7, 66543.86), param = c(7.1624,
6.2862, 4.1851, 0.20857), stdev_param = c(0.29841, 0.20921, 0.82877,
NA), sigma = c(prop.err = 0.20857), parFixedDf = structure(list(
Estimate = c(lVM = 7.16239266842844, lKM = 6.28619475097551,
lVc = 4.18505103213254, prop.err = 0.208571850558541), SE = c(lVM = 0.0562072687963967,
lKM = 0.165843925157734, lVc = 0.0277287459793203, prop.err = NA
), "%RSE" = c(0.784755477651431, 2.63822442236613, 0.6625664959978,
NA), "Back-transformed" = c(1289.99377069886, 537.105614907176,
65.6968534817267, 0.208571850558541), "CI Lower" = c(1155.43069080212,
388.054824776501, 62.2216922332387, NA), "CI Upper" = c(1440.22825573953,
743.406403285838, 69.3661069393711, NA), "BSV(CV%)" = c(21.1516961636328,
99.3714843559614, 30.517499412807, NA), "Shrink(SD)%" = c(37.8571145356956,
28.2690829103715, 5.33616558512296, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "prop.err")), omega = structure(c(0.0890467664660272,
0, 0, 0, 0.0437675003131945, 0, 0, 0, 0.686862065695736), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Vc", "eta.VM", "eta.KM"), c("eta.Vc",
"eta.VM", "eta.KM"))), time = structure(list(setup = 0.163900000000001,
optimize = 10.90606, covariance = 10.906061, table = 0.240000000000009,
other = 46.962979), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 57885.2732144532, AIC = 66498.7000081825,
BIC = 66543.8558860186, "Log-likelihood" = -33242.3500040913,
"Condition Number" = 38.4666210728481), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.