From 194659fcaccdd1ee37851725b8c72e99daa3a8cf Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 10 Apr 2019 10:17:35 +0200 Subject: Adapt tests, vignettes and examples - Write the NEWS - Static documentation rebuilt by pkgdown - Adapt mkinerrmin - Fix (hopefully all) remaining problems in mkinfit --- man/IORE.solution.Rd | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) (limited to 'man/IORE.solution.Rd') diff --git a/man/IORE.solution.Rd b/man/IORE.solution.Rd index 13c81302..65760f95 100644 --- a/man/IORE.solution.Rd +++ b/man/IORE.solution.Rd @@ -29,15 +29,16 @@ Media } \examples{ - plot(function(x) IORE.solution(x, 100, 0.2, 1.3), 0, 2, - ylim = c(0, 100)) - fit.fomc <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE) - fit.iore <- mkinfit("IORE", FOCUS_2006_C, quiet = TRUE) - fit.iore.deS <- mkinfit("IORE", FOCUS_2006_C, solution_type = "deSolve", quiet = TRUE) + plot(function(x) IORE.solution(x, 100, 0.2, 1.3), 0, 2, ylim = c(0, 100)) + \dontrun{ + fit.fomc <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE) + fit.iore <- mkinfit("IORE", FOCUS_2006_C, quiet = TRUE) + fit.iore.deS <- mkinfit("IORE", FOCUS_2006_C, solution_type = "deSolve", quiet = TRUE) - print(data.frame(coef(fit.fomc), coef(fit.iore), coef(fit.iore.deS), - row.names = paste("model par", 1:3))) - print(rbind(fomc = endpoints(fit.fomc)$distimes, iore = endpoints(fit.iore)$distimes, - iore.deS = endpoints(fit.iore)$distimes)) + print(data.frame(fit.fomc$par, fit.iore$par, fit.iore.deS$par, + row.names = paste("model par", 1:4))) + print(rbind(fomc = endpoints(fit.fomc)$distimes, iore = endpoints(fit.iore)$distimes, + iore.deS = endpoints(fit.iore)$distimes)) + } } \keyword{ manip } -- cgit v1.2.1