expected_values[[runno]] <- list(lik = c(-13020.67, 26055.33, 26095.45), param = c(6.9311,
5.5215, 4.2594, 0.20119), stdev_param = c(0.30465, 0.27916, 0.284,
NA), sigma = c(prop.err = 0.20119), parFixedDf = structure(list(
Estimate = c(lVM = 6.93111080155032, lKM = 5.52150721967236,
lVc = 4.25941757664271, prop.err = 0.20118758212233), SE = c(lVM = 0.0426634663267158,
lKM = 0.0717993990677295, lVc = 0.0282189733910992, prop.err = NA
), "%RSE" = c(0.615535771224045, 1.30035869213243, 0.662507793221381,
NA), "Back-transformed" = c(1023.6303985715, 250.011575720515,
70.7687540736258, 0.20118758212233), "CI Lower" = c(941.516566777031,
217.192266802958, 66.9609360359789, NA), "CI Upper" = c(1112.90574149589,
287.790117550372, 74.7931084840623, NA), "BSV(CV%)" = c(28.4690727371346,
28.9819635047177, 31.185779106709, NA), "Shrink(SD)%" = c(15.570515091444,
48.4757595797199, 1.40194964109132, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "prop.err")), omega = structure(c(0.0928118632900408,
0, 0, 0, 0.0779316905065606, 0, 0, 0, 0.0806536787086049), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Vc", "eta.VM", "eta.KM"), c("eta.Vc",
"eta.VM", "eta.KM"))), time = structure(list(setup = 0.156824999999977,
optimize = 3.889858, covariance = 3.88986, table = 0.08299999999997,
other = 12.013457), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 21858.3266214607, AIC = 26055.3348246084,
BIC = 26095.4460481751, "Log-likelihood" = -13020.6674123042,
"Condition Number" = 8.42493956820118), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.