## S3 method for class 'coefEstEval'
distribution(obj, ..., Sort=FALSE, bandwidth=0.2,
graphs.per.page=5)
## S3 method for class 'rootsEstEval'
distribution(obj, ..., mod=TRUE, invert=FALSE, Sort=FALSE,
bandwidth=0.2, select=NULL)
Arguments
obj
an object as returned by EstEval.
Sort
if Sort is true then sort is applied. This helps (a bit)
with estimation methods like black.box which may not return parameters
of the same length or in the same order.
bandwidth
passed to density or ksmooth.
graphs.per.page
integer indicating number of graphs to place on a
page.
...
other objects to be plotted (not working for some methods).
invert
logical indicating if the inverse of roots should be plotted
mod
logical indicating if the modulus of roots should be plotted
select
integer vector indicating roots to be plotted. If select
is not NULL then roots are sorted by magnitude and only the
indicated roots are plotted. For example, select=c(1,2) will plot only
the two largest roots.
Details
ksmooth is applied if available to get a smoothed
estimate of the distribution of the estimates. If ksmooth is not
available then density is applied if it is available.
Value
None
See Also
EstEval
Examples
data("eg1.DSE.data.diff", package="dse")
model <- estVARXls(TSdata(output=outputData(eg1.DSE.data.diff)), max.lag=2)
# now use this as the true model
z <- EstEval(model,
estimation="estVARXls", estimation.args=list(max.lag=2))
distribution(z)
tfplot(z)
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(EvalEst)
Loading required package: tfplot
Loading required package: tframe
Loading required package: dse
Attaching package: 'dse'
The following objects are masked from 'package:stats':
acf, simulate
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/EvalEst/distribution.coefEstEval.Rd_%03d_medium.png", width=480, height=480)
> ### Name: distribution.coefEstEval
> ### Title: Plot distribution of estimates
> ### Aliases: distribution.coefEstEval distribution.rootsEstEval
> ### Keywords: ts
>
> ### ** Examples
>
> data("eg1.DSE.data.diff", package="dse")
> model <- estVARXls(TSdata(output=outputData(eg1.DSE.data.diff)), max.lag=2)
> # now use this as the true model
> z <- EstEval(model,
+ estimation="estVARXls", estimation.args=list(max.lag=2))
Calculating 100 estimates.
> distribution(z)
> tfplot(z)
>
>
>
>
>
> dev.off()
null device
1
>