diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-06-23 11:21:49 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-06-23 11:40:36 +0200 |
| commit | 6c62c42eb57631aa0f4ab7e008621ffb519bd7be (patch) | |
| tree | 23d65dd4a50efd669026112ce80ff2095572bfa8 /man/IORE.solution.Rd | |
| parent | 548b67e5d54e78150cfc6474ad129af9408f4997 (diff) | |
Small documenation changes
Diffstat (limited to 'man/IORE.solution.Rd')
| -rw-r--r-- | man/IORE.solution.Rd | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/man/IORE.solution.Rd b/man/IORE.solution.Rd index bb377d3f..bad7c1fa 100644 --- a/man/IORE.solution.Rd +++ b/man/IORE.solution.Rd @@ -30,12 +30,14 @@ Media
}
\examples{
- \dontrun{plot(function(x) IORE.solution(x, 100, 0.2, 1.3), 0, 2,
- ylim = c(0, 100))}
- m.fomc <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE)
- 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)
+ 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)
+
+ data.frame(coef(fit.fomc), coef(fit.iore), coef(fit.iore.deS), row.names = paste("model par", 1:3))
+ print(rbind(fomc = endpoints(m.fomc)$distimes, iore = endpoints(m.iore)$distimes,
+ iore.deS = endpoints(m.iore)$distimes))
}
\keyword{ manip }
|