expected_values[[runno]] <- list(lik = c(-31276.59, 62567.19, 62612.34), param = c(7.1188,
6.1914, 4.1402, 0.20373), stdev_param = c(0.31468, 0.20187, 0.67722,
NA), sigma = c(prop.err = 0.20373), parFixedDf = structure(list(
Estimate = c(lVM = 7.11883359917424, lKM = 6.19136489810689,
lVc = 4.1401817213992, prop.err = 0.203733860101988), SE = c(lVM = 0.0383375081778386,
lKM = 0.103473518932952, lVc = 0.0292255568514491, prop.err = NA
), "%RSE" = c(0.538536371777052, 1.67125537964319, 0.705900340083916,
NA), "Back-transformed" = c(1235.00907742187, 488.512421063762,
62.8142351028102, 0.203733860101988), "CI Lower" = c(1145.61107535036,
398.84007724897, 59.3172811462741, NA), "CI Upper" = c(1331.38327145447,
598.346051830213, 66.5173462994932, NA), "BSV(CV%)" = c(20.3942134832095,
76.2826336088445, 32.2629815939995, NA), "Shrink(SD)%" = c(34.5516256610177,
24.8669456303237, 3.4888547716669, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "prop.err")), omega = structure(c(0.0990214645807628,
0, 0, 0, 0.040750690563666, 0, 0, 0, 0.458629196853926), .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.162470999999996,
optimize = 6.594108, covariance = 6.59411, table = 0.230999999999995,
other = 40.999311), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 53959.2754231378, AIC = 62567.1885856679,
BIC = 62612.339973926, "Log-likelihood" = -31276.594292834,
"Condition Number" = 13.3805349861563), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.