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 --- docs/reference/IORE.solution.html | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'docs/reference/IORE.solution.html') diff --git a/docs/reference/IORE.solution.html b/docs/reference/IORE.solution.html index 9a497f92..c9b79512 100644 --- a/docs/reference/IORE.solution.html +++ b/docs/reference/IORE.solution.html @@ -64,7 +64,7 @@ mkin - 0.9.48.1 + 0.9.49.4 @@ -176,20 +176,20 @@

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)
-
-  print(data.frame(coef(fit.fomc), coef(fit.iore), coef(fit.iore.deS),
-                   row.names = paste("model par", 1:3)))
#>             coef.fit.fomc. coef.fit.iore. coef.fit.iore.deS.
-#> model par 1    85.87489063      85.874890          85.874890
-#> model par 2     0.05192238      -4.826631          -4.826631
-#> model par 3     0.65096665       1.949403           1.949403
  print(rbind(fomc = endpoints(fit.fomc)$distimes, iore = endpoints(fit.iore)$distimes,
-              iore.deS = endpoints(fit.iore)$distimes))
#>              DT50    DT90 DT50back
+    
  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)
+
+    print(data.frame(fit.fomc$par, fit.iore$par, fit.iore.deS$par,
+                     row.names = paste("model par", 1:4)))
#>             fit.fomc.par fit.iore.par fit.iore.deS.par
+#> model par 1  85.87488995    85.874890        85.874890
+#> model par 2   0.05192228    -4.826631        -4.826631
+#> model par 3   0.65096650     1.949403         1.949403
+#> model par 4   1.85744396     1.857444         1.857444
    print(rbind(fomc = endpoints(fit.fomc)$distimes, iore = endpoints(fit.iore)$distimes,
+                iore.deS = endpoints(fit.iore)$distimes))
#>              DT50    DT90 DT50back
 #> fomc     1.785233 15.1479 4.559973
 #> iore     1.785233 15.1479 4.559973
-#> iore.deS 1.785233 15.1479 4.559973

+#> iore.deS 1.785233 15.1479 4.559973