expected_values[[runno]] <- list(lik = c(-37861.81, 75733.63, 75767.86), param = c(1.3874,
4.2737, 0.20002), stdev_param = c(0.30656, 0.28131, NA), sigma = c(prop.err = 0.20002),
parFixedDf = structure(list(Estimate = c(lCl = 1.38740930078832,
lVc = 4.27368750377717, prop.err = 0.200019394761867), SE = c(lCl = 0.0260885964823507,
lVc = 0.0281845844044842, prop.err = NA), "%RSE" = c(1.88038212426047,
0.659490998805459, NA), "Back-transformed" = c(4.00446224577888,
71.7858587832705, 0.200019394761867), "CI Lower" = c(3.80485008580898,
67.9278921798794, NA), "CI Upper" = c(4.21454656983126, 75.862938711619,
NA), "BSV(CV%)" = c(28.6964300801948, 31.3900519741859, NA
), "Shrink(SD)%" = c(0.113864643690897, 0.508634035448985,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.0939761415473997, 0, 0, 0.0791332264683193
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 0.190596999999983,
optimize = 6.2405, covariance = 6.240518, table = 0.407999999999987,
other = 21.089385), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 62944.8691609999, AIC = 75733.628403744,
BIC = 75767.8630462445, "Log-likelihood" = -37861.814201872,
"Condition Number" = 1.28107922484062), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.