expected_values[[runno]] <- list(lik = c(-12855.04, 25720.07, 25748.72), param = c(1.3623,
4.1985, 0.19912), stdev_param = c(0.32238, 0.26771, NA), sigma = c(prop.err = 0.19912),
parFixedDf = structure(list(Estimate = c(lCl = 1.36233655256726,
lVc = 4.19853415546849, prop.err = 0.19912385527985), SE = c(lCl = 0.025025391967227,
lVc = 0.0302341951601627, prop.err = NA), "%RSE" = c(1.8369463786366,
0.720113116640562, NA), "Back-transformed" = c(3.90530760613606,
66.588650856715, 0.19912385527985), "CI Lower" = c(3.71837849795717,
62.75738258528, NA), "CI Upper" = c(4.10163395332754, 70.6538137866431,
NA), "BSV(CV%)" = c(27.2581530763969, 33.0945358135797, NA
), "Shrink(SD)%" = c(0.874556538887861, 2.13597511845024,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.103931842654858, 0, 0, 0.0716699298192867
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 64.431986,
optimize = 2.743058, covariance = 2.74306, table = 0.134999999999991,
other = 6.90889600000001), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 21528.9030552435, AIC = 25720.0733813248,
BIC = 25748.7220579817, "Log-likelihood" = -12855.0366906624,
"Condition Number" = 1.64952145819249), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.