if (FALSE) {
sfo_sfo <- mkinmod(
parent = mkinsub("SFO", to = "m1"),
m1 = mkinsub("SFO")
)
d_t <- subset(FOCUS_2006_D, value != 0)
f_nw <- mkinfit(sfo_sfo, d_t, quiet = TRUE) # no weighting (weights are unity)
f_obs <- update(f_nw, error_model = "obs")
f_tc <- update(f_nw, error_model = "tc")
AIC(f_nw, f_obs, f_tc)
}
Run the code above in your browser using DataLab