expected_values[[runno]] <- list(lik = c(-12120.74, 24251.49, 24280.14), param = c(1.3665,
4.206, 0.19789), stdev_param = c(0.30287, 0.26988, NA), sigma = c(prop.err = 0.19789),
parFixedDf = structure(list(Estimate = c(lCl = 1.36646703835103,
lVc = 4.2059673004377, prop.err = 0.1978873796565), SE = c(lCl = 0.0251132173532645,
lVc = 0.0281340917073062, prop.err = NA), "%RSE" = c(1.83782093884749,
0.668908950014386, NA), "Back-transformed" = c(3.92147178365588,
67.0854580844605, 0.1978873796565), "CI Lower" = c(3.73312631517372,
63.4863863010138, NA), "CI Upper" = c(4.1193197475006, 70.8885628654853,
NA), "BSV(CV%)" = c(27.4871560869439, 30.9953114562716, NA
), "Shrink(SD)%" = c(1.33295757149927, 1.48327984843287,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.0917319065293135, 0, 0, 0.0728362263042688
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 5.287548,
optimize = 0.997309, covariance = 0.997313, table = 0.0760000000000005,
other = 2.49383), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 20058.4791169415, AIC = 24251.4873200892,
BIC = 24280.1381940654, "Log-likelihood" = -12120.7436600446,
"Condition Number" = 1.37715404951362), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.