expected_values[[runno]] <- list(lik = c(-33249.68, 66513.37, 66558.52), param = c(7.1385,
6.1927, 4.1835, 0.20896), stdev_param = c(0.29362, 0.23733, 0.74925,
NA), sigma = c(prop.err = 0.20896), parFixedDf = structure(list(
Estimate = c(lVM = 7.13847268581138, lKM = 6.19267110259661,
lVc = 4.18351301299068, prop.err = 0.208956776104136), SE = c(lVM = 0.0388163794050673,
lKM = 0.117090128087459, lVc = 0.0283076569637782, prop.err = NA
), "%RSE" = c(0.543763086496356, 1.89078551319094, 0.67664799597556,
NA), "Back-transformed" = c(1259.5032621328, 489.15093510561,
65.595888126739, 0.208956776104136), "CI Lower" = c(1167.23616386954,
388.844168638781, 62.0556165985136, NA), "CI Upper" = c(1359.06384365628,
615.332970408933, 69.3381320658527, NA), "BSV(CV%)" = c(24.0709902266676,
86.7803237768194, 30.0068182864869, NA), "Shrink(SD)%" = c(37.0838145012632,
32.3766801733864, 3.69808058909592, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "prop.err")), omega = structure(c(0.0862152316538598,
0, 0, 0, 0.0563248092568926, 0, 0, 0, 0.561375643897804), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Vc", "eta.VM", "eta.KM"), c("eta.Vc",
"eta.VM", "eta.KM"))), time = structure(list(saem = 166.05, setup = 0.166300999999864,
table = 0.239000000000033, cwres = 0.422000000000025, covariance = 0.235999999999876,
other = 0.402699000000325), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 57899.9385114704, AIC = 66513.3653051997,
BIC = 66558.5211830358, "Log-likelihood" = -33249.6826525998,
"Condition Number" = 18.7155392591908), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.