expected_values[[runno]] <- list(lik = c(-38527.4, 77064.8, 77099.04), param = c(1.3623,
4.2023, 0.20293), stdev_param = c(0.30957, 0.26861, NA), sigma = c(prop.err = 0.20293),
parFixedDf = structure(list(Estimate = c(lCl = 1.36229783514538,
lVc = 4.20228684930362, prop.err = 0.202934305099942), SE = c(lCl = 0.0250621349982322,
lVc = 0.028449278853994, prop.err = NA), "%RSE" = c(1.83969572230566,
0.676995166541485, NA), "Back-transformed" = c(3.90515640562098,
66.8390071377028, 0.202934305099942), "CI Lower" = c(3.71796677563167,
63.2140942998844, NA), "CI Upper" = c(4.10177053014994, 70.6717849022802,
NA), "BSV(CV%)" = c(27.3527836435857, 31.713811543199, NA
), "Shrink(SD)%" = c(-0.354333816336805, 0.471414016869032,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.09583420998539, 0, 0, 0.0721508586106913
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 0.171555000000006,
optimize = 4.957578, covariance = 4.95758, table = 0.399000000000001,
other = 14.139287), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 64279.719344819, AIC = 77064.8028334303,
BIC = 77099.0360374958, "Log-likelihood" = -38527.4014167152,
"Condition Number" = 1.395651647362), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.