From bb8244557f0ca2d4370bba5b799ffcdf9d822eb9 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 13 Nov 2014 07:47:54 +0100 Subject: Expand the IORE example a bit --- man/IORE.solution.Rd | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'man') diff --git a/man/IORE.solution.Rd b/man/IORE.solution.Rd index 15918776..3d827bdc 100644 --- a/man/IORE.solution.Rd +++ b/man/IORE.solution.Rd @@ -32,9 +32,10 @@ \examples{ \dontrun{plot(function(x) IORE.solution(x, 100, 0.2, 1.3), 0, 2, ylim = c(0, 100))} - m.iore <- mkinfit("IORE", FOCUS_2006_C, quiet = TRUE) m.fomc <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE) - rbind(coef(m.iore), coef(m.fomc)) - rbind(endpoints(m.iore)$distimes, endpoints(m.fomc)$distimes) + m.iore <- mkinfit("IORE", FOCUS_2006_C, quiet = TRUE) + m.iore.deS <- mkinfit("IORE", FOCUS_2006_C, solution_type = "deSolve", quiet = TRUE) + data.frame(coef(m.fomc), coef(m.iore), coef(m.iore.deS), row.names = paste("par", 1:3)) + rbind(endpoints(m.fomc)$distimes, endpoints(m.iore)$distimes, endpoints(m.iore)$distimes) } \keyword{ manip } -- cgit v1.2.1