expected_values[[runno]] <- list(lik = c(-26812.17, 53634.34, 53666.59), param = c(1.3615,
4.1977, 0.2047), stdev_param = c(0.3125, 0.27116, NA), sigma = c(prop.err = 0.2047),
parFixedDf = structure(list(Estimate = c(lCl = 1.36148119577096,
lVc = 4.19766547069543, prop.err = 0.20470277728627), SE = c(lCl = 0.0251887360519413,
lVc = 0.0288776551100029, prop.err = NA), "%RSE" = c(1.85009797639386,
0.687945604803489, NA), "Back-transformed" = c(3.9019686029566,
66.5308314267217, 0.20470277728627), "CI Lower" = c(3.71401009229823,
62.8698242362767, NA), "CI Upper" = c(4.09943931224959, 70.4050247332615,
NA), "BSV(CV%)" = c(27.6220865810669, 32.0291549510235, NA
), "Shrink(SD)%" = c(0.302711430388358, 1.52637828726833,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.097658943559416, 0, 0, 0.0735273441375769
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 4.35929899999999,
optimize = 4.18059, covariance = 4.180592, table = 0.219999999999999,
other = 9.061519), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 45032.2602168569, AIC = 53634.3355023206,
BIC = 53666.5854245292, "Log-likelihood" = -26812.1677511603,
"Condition Number" = 1.45248754571761), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.