expected_values[[runno]] <- list(lik = c(-43485.22, 86984.44, 87032.36), param = c(6.9039,
5.5369, 4.1784, 0.20108), stdev_param = c(0.30097, 0.29789, 0.31114,
NA), sigma = c(prop.err = 0.20108), parFixedDf = structure(list(
Estimate = c(lVM = 6.90387115019612, lKM = 5.53694345464737,
lVc = 4.1784416266863, prop.err = 0.20108225755265), SE = c(lVM = 0.0308316380213975,
lKM = 0.0390213418826731, lVc = 0.0275670616794473, prop.err = NA
), "%RSE" = c(0.446584783386661, 0.70474517578685, 0.659745047133977,
NA), "Back-transformed" = c(996.123404685383, 253.900753052454,
65.2640681429024, 0.20108225755265), "CI Lower" = c(937.71142281612,
235.206306714876, 61.8313908854829, NA), "CI Upper" = c(1058.17398958632,
274.081053782075, 68.8873164514475, NA), "BSV(CV%)" = c(30.4622375440441,
31.8820423140402, 30.791455509658, NA), "Shrink(SD)%" = c(5.70228303289031,
23.8876531828937, 1.04744887955422, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "prop.err")), omega = structure(c(0.0905820865487004,
0, 0, 0, 0.088738443734979, 0, 0, 0, 0.0968058445685042), .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.178131999999963,
optimize = 8.000864, covariance = 8.000895, table = 0.451000000000022,
other = 13.599109), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 74197.1936314708, AIC = 86984.4392430158,
BIC = 87032.3647215857, "Log-likelihood" = -43485.2196215079,
"Condition Number" = 2.25711764438498), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.