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