From f39815aa87272849f8e0c808099c4cee780c2a81 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
+#> iore.deS 1.785233 15.1479 4.559973plot(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) @@ -125,13 +127,11 @@ row.names = paste("model par", 1:3)))#> coef.fit.fomc. coef.fit.iore. coef.fit.iore.deS. #> model par 1 85.87489063 85.874891 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, +#> model par 3 0.65096665 1.949403 1.949403print(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 -#>