expected_values[[runno]] <- list(lik = c(-26406.04, 52822.08, 52854.34), param = c(1.386,
4.2659, 0.19998), stdev_param = c(0.29756, 0.28233, NA), sigma = c(prop.err = 0.19998),
parFixedDf = structure(list(Estimate = c(lCl = 1.38604968752608,
lVc = 4.26594276265832, prop.err = 0.199975231600216), SE = c(lCl = 0.0261929032117217,
lVc = 0.0276023274291072, prop.err = NA), "%RSE" = c(1.88975210971496,
0.64703932904873, NA), "Back-transformed" = c(3.99902142534534,
71.2320432382102, 0.199975231600216), "CI Lower" = c(3.79890375877799,
67.4808055358375, NA), "CI Upper" = c(4.20968083843096, 75.1918111172451,
NA), "BSV(CV%)" = c(28.8054003129854, 30.4268523753653, NA
), "Shrink(SD)%" = c(0.291610197509617, 1.60427349689212,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.0885412627856225, 0, 0, 0.0797119841158833
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 0.167234000000015,
optimize = 5.351554, covariance = 5.351555, table = 0.216000000000008,
other = 11.951657), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 44216.3324694038, AIC = 52822.0835090003,
BIC = 52854.3355697889, "Log-likelihood" = -26406.0417545001,
"Condition Number" = 1.2309023205805), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.