expected_values[[runno]] <- list(lik = c(-12669.26, 25348.52, 25377.17), param = c(1.3906,
4.2699, 0.19531), stdev_param = c(0.30517, 0.27611, NA), sigma = c(prop.err = 0.19531),
parFixedDf = structure(list(Estimate = c(lCl = 1.39055548643548,
lVc = 4.26986505625382, prop.err = 0.195309318573758), SE = c(lCl = 0.025606785333471,
lVc = 0.0286314021445171, prop.err = NA), "%RSE" = c(1.84147886102055,
0.670545831479672, NA), "Back-transformed" = c(4.01708086727532,
71.5119848729441, 0.195309318573758), "CI Lower" = c(3.82044576959676,
67.6095022651992, NA), "CI Upper" = c(4.22383660635827, 75.6397223634126,
NA), "BSV(CV%)" = c(28.1459796271388, 31.241252120498, NA
), "Shrink(SD)%" = c(1.27288650487232, 2.8025010314488, NA
)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.0931274205956336, 0, 0, 0.0762382030230122
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 65.636338,
optimize = 3.757298, covariance = 3.7573, table = 0.111999999999995,
other = 8.799064), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 21153.6690637601, AIC = 25348.5151439742,
BIC = 25377.1682143045, "Log-likelihood" = -12669.2575719871,
"Condition Number" = 1.34866057621707), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.