diff options
Diffstat (limited to 'man/IORE.solution.Rd')
| -rw-r--r-- | man/IORE.solution.Rd | 19 |
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 }
|