expected_values[[runno]] <- list(lik = c(-11868.14, 23746.29, 23774.94), param = c(1.3925,
4.2699, 0.20034), stdev_param = c(0.31042, 0.27945, NA), sigma = c(prop.err = 0.20034),
parFixedDf = structure(list(Estimate = c(lCl = 1.39254170445095,
lVc = 4.26994336615044, prop.err = 0.200340598867037), SE = c(lCl = 0.0259343659684498,
lVc = 0.0288164134824447, prop.err = NA), "%RSE" = c(1.86237624952678,
0.674866409491143, NA), "Back-transformed" = c(4.02506759472877,
71.5175851883642, 0.200340598867037), "CI Lower" = c(3.8255845578781,
67.5902832330395, NA), "CI Upper" = c(4.23495256660116, 75.6730811963032,
NA), "BSV(CV%)" = c(28.4996938019998, 31.8048101604285, NA
), "Shrink(SD)%" = c(1.51916508463497, 1.44206203450241,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.0963592610843402, 0, 0, 0.0780930434026703
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(setup = 0.15392600000002,
optimize = 1.198952, covariance = 1.198953, table = 0.0690000000000168,
other = 2.80716899999996), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 19553.2783412267, AIC = 23746.2865443744,
BIC = 23774.9374183506, "Log-likelihood" = -11868.1432721872,
"Condition Number" = 1.41623941388407), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.