expected_values[[runno]] <- list(lik = c(-37489.96, 74993.91, 75041.83), param = c(1.3878,
4.2024, 0.0034754, 0.19792), stdev_param = c(0.2612, 0.27925,
0.3336, NA), sigma = c(prop.err = 0.19792), parFixedDf = structure(list(
Estimate = c(lCl = 1.3877864130963, lVc = 4.20243078461593,
lKA = 0.00347537851805896, prop.err = 0.197917517703663),
SE = c(lCl = 0.0240049123422201, lVc = 0.0258946736794518,
lKA = 0.0323645843243545, prop.err = NA), "%RSE" = c(1.72972671555867,
0.616183228388813, 931.253506810259, NA), "Back-transformed" = c(4.0059726625591,
66.8486283234673, 1.00348142464815, 0.197917517703663), "CI Lower" = c(3.82186165999833,
63.5405418696146, 0.941804049786753, NA), "CI Upper" = c(4.19895286664506,
70.3289423923854, 1.06919796091542, NA), "BSV(CV%)" = c(26.571849618955,
28.4786603903971, 34.3105042834128, NA), "Shrink(SD)%" = c(0.190261780338707,
1.04673944847885, 5.64988375947865, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.0682251414604118,
0, 0, 0, 0.0779821952873405, 0, 0, 0, 0.11129185381822), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(saem = 409.672,
setup = 0.166204999999982, table = 0.546000000000276, cwres = 0.769999999999982,
covariance = 0.215999999999894, other = 0.400794999999562), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 62212.179577285, AIC = 74993.9115576307,
BIC = 75041.8340139655, "Log-likelihood" = -37489.9557788153,
"Condition Number" = 1.82683369876227), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.