diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-13 21:24:13 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-13 21:24:13 +0100 |
| commit | 6441a9f35d66f2c4d38c0036f99cd8f509d76f3b (patch) | |
| tree | 452f80a89016e89e8113e17d251f988ece1f86d2 /man/saem.Rd | |
| parent | 572e435b2394ef7092a78d0eebbbeda88b66a0a8 (diff) | |
More work on f_time_norm_focus
Diffstat (limited to 'man/saem.Rd')
| -rw-r--r-- | man/saem.Rd | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/man/saem.Rd b/man/saem.Rd index 3cd9f7f8..ef5480f1 100644 --- a/man/saem.Rd +++ b/man/saem.Rd @@ -109,7 +109,7 @@ fomc_sfo <- mkinmod(parent = mkinsub("FOMC", "A1"), dfop_sfo <- mkinmod(parent = mkinsub("DFOP", "A1"), A1 = mkinsub("SFO")) # The following fit uses analytical solutions for SFO-SFO and DFOP-SFO, -# and compiled ODEs for FOMC, both are fast +# and compiled ODEs for FOMC that are much slower f_mmkin <- mmkin(list( "SFO-SFO" = sfo_sfo, "FOMC-SFO" = fomc_sfo, "DFOP-SFO" = dfop_sfo), ds, quiet = TRUE) @@ -121,11 +121,12 @@ f_saem_dfop_sfo <- saem(f_mmkin["DFOP-SFO", ]) # We can use print, plot and summary methods to check the results print(f_saem_dfop_sfo) plot(f_saem_dfop_sfo) -summary(f_saem_dfop_sfo, data = FALSE) +summary(f_saem_dfop_sfo, data = TRUE) # Using a single core, the following takes about 6 minutes as we do not have an # analytical solution. Using 10 cores it is slower instead of faster -#f_saem_fomc <- saem(f_mmkin["FOMC-SFO", ], cores = 1) +f_saem_fomc <- saem(f_mmkin["FOMC-SFO", ], cores = 1) +plot(f_saem_fomc) } } \seealso{ |