expected_values[[runno]] <- list(lik = c(-38881.12, 77780.25, 77841.88), param = c(1.3629,
4.2198, 1.3431, 3.9206, 0.20273), stdev_param = c(0.30556, 0.30035,
0.33196, 0.33398, NA), sigma = c(prop.err = 0.20273), parFixedDf = structure(list(
Estimate = c(lCl = 1.36292662739176, lVc = 4.21976094061742,
lQ = 1.34305911488633, lVp = 3.92056977626004, prop.err = 0.202730076361552
), SE = c(lCl = 0.0315793938491071, lVc = 0.0294347329146498,
lQ = 0.0505387885421633, lVp = 0.0366409276097424, prop.err = NA
), "%RSE" = c(2.31702816677232, 0.697545034632768, 3.76296083932542,
0.934581698599313, NA), "Back-transformed" = c(3.90761270986132,
68.0172221905521, 3.83074428609657, 50.4291699376754, 0.202730076361552
), "CI Lower" = c(3.67308589762216, 64.2042831504846, 3.46948063387384,
46.9345875368376, NA), "CI Upper" = c(4.15711407679158, 72.0566025739361,
4.22962493065616, 54.18394651081, NA), "BSV(CV%)" = c(30.7251244548711,
31.2828637950408, 34.3511704203456, 34.1321155072001, NA),
"Shrink(SD)%" = c(0.547673008752192, 1.7253930069026, 30.2814043167109,
12.7560110817114, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0933644305358297,
0, 0, 0, 0, 0.090209308156319, 0, 0, 0, 0, 0.110198909539166,
0, 0, 0, 0, 0.111541634951802), .Dim = c(4L, 4L), .Dimnames = list(
c("eta.Vc", "eta.Cl", "eta.Vp", "eta.Q"), c("eta.Vc", "eta.Cl",
"eta.Vp", "eta.Q"))), time = structure(list(setup = 0.175137000000655,
optimize = 156.703621, covariance = 156.703623, table = 0.557000000000698,
other = 272.609618999998), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 64970.6221906293, AIC = 77780.2465728384,
BIC = 77841.8779856183, "Log-likelihood" = -38881.1232864192,
"Condition Number" = 3.38742831198404), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.