Adapt tests, vignettes and examples

- Write the NEWS
- Static documentation rebuilt by pkgdown
- Adapt mkinerrmin
- Fix (hopefully all) remaining problems in mkinfit

1 files changed, 10 insertions, 9 deletions

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 }