diff options
Diffstat (limited to 'man')
| -rw-r--r-- | man/confint.mkinfit.Rd | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/man/confint.mkinfit.Rd b/man/confint.mkinfit.Rd index 99f5875c..bad73407 100644 --- a/man/confint.mkinfit.Rd +++ b/man/confint.mkinfit.Rd @@ -112,15 +112,17 @@ rel_diffs_untransformed_ff <- abs((ci_quadratic_untransformed_ff - ci_profile_ff rel_diffs_transformed_ff rel_diffs_untransformed_ff -# The profiling for the following fit does not finish in a reasonable time -#m_synth_DFOP_par <- mkinmod(parent = mkinsub("DFOP", c("M1", "M2")), -# M1 = mkinsub("SFO"), -# M2 = mkinsub("SFO"), -# use_of_ff = "max", quiet = TRUE) -#DFOP_par_c <- synthetic_data_for_UBA_2014[[12]]$data -#f_tc_2 <- mkinfit(m_synth_DFOP_par, DFOP_par_c, error_model = "tc", -# error_model_algorithm = "direct", quiet = TRUE) -#confint(f_tc_2, "parent_0") +# The profiling for the following fit does not finish in a reasonable time, +# therefore we use the quadratic approximation +m_synth_DFOP_par <- mkinmod(parent = mkinsub("DFOP", c("M1", "M2")), + M1 = mkinsub("SFO"), + M2 = mkinsub("SFO"), + use_of_ff = "max", quiet = TRUE) +DFOP_par_c <- synthetic_data_for_UBA_2014[[12]]$data +f_tc_2 <- mkinfit(m_synth_DFOP_par, DFOP_par_c, error_model = "tc", + error_model_algorithm = "direct", quiet = TRUE) +confint(f_tc_2, method = "quadratic") +confint(f_tc_2, "parent_0", method = "quadratic") } } \references{ |