expected_values[[runno]] <- list(lik = c(-27495.18, 55008.37, 55066.43), param = c(1.3313,
4.1775, 1.4442, 3.8506, 0.2025), stdev_param = c(0.30932, 0.34331,
0.26886, 0.45802, NA), sigma = c(prop.err = 0.2025), parFixedDf = structure(list(
Estimate = c(lCl = 1.33128870425384, lVc = 4.17747033966008,
lQ = 1.44419054866622, lVp = 3.85057301506792, prop.err = 0.202496678677799
), SE = c(lCl = 0.0315638377523088, lVc = 0.0298321107906297,
lQ = 0.0688796495495066, lVp = 0.0339926844041424, prop.err = NA
), "%RSE" = c(2.37092357588956, 0.71411903293267, 4.76942946435431,
0.882795476702388, NA), "Back-transformed" = c(3.78591917531569,
65.2007087752839, 4.23841995922591, 47.0199986813709, 0.202496678677799
), "CI Lower" = c(3.55880466081028, 61.4977431214944, 3.70316891379034,
43.9893948133803, NA), "CI Upper" = c(4.02752760213583, 69.126641223254,
4.85103546961282, 50.2593928690203, NA), "BSV(CV%)" = c(35.3673587314985,
31.6866017694368, 48.3123527995974, 27.379751211919, NA),
"Shrink(SD)%" = c(0.1408100465907, 3.65661941822529, 40.2132613084584,
23.3019954475337, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0956774515967709,
0, 0, 0, 0, 0.117858594014446, 0, 0, 0, 0, 0.0722881751381408,
0, 0, 0, 0, 0.209781348027224), .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(saem = 216.859,
setup = 0.164103000000546, table = 0.287000000000262, cwres = 0.48700000000008,
covariance = 0.125, other = 0.303896999998386), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 46389.1043254984, AIC = 55008.3689962941,
BIC = 55066.4284767943, "Log-likelihood" = -27495.184498147,
"Condition Number" = 5.83010179711877), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.