| print-methods {distrMod} | R Documentation |
Methods for print to the S4 classes in package distrMod;
## S4 method for signature 'ShowDetails':
print(x, digits = getOption("digits"),
show.details = c("maximal", "minimal", "medium"))
x |
object of class ShowDetails, a class union of
classes OptionalNumeric, OptionalMatrix,
MatrixorFunction, Estimate, MCEstimate. |
digits |
unchanged w.r.t. default method of package base:
a non-null value for 'digits' specifies the minimum number of
significant digits to be printed in values. The default,
'NULL', uses 'getOption(digits)'. (For the interpretation
for complex numbers see 'signif'.) Non-integer values will be
rounded down, and only values greater than or equal to 1 and
no greater than 22 are accepted. |
show.details |
a character, controlling the degree of detailedness
of the output; currently the following values are permitted:
"maximal", "minimal", "medium"; for the meaning
for the actual class, confer to the corresponding class help file. |
This method provides sort of a ''show
with extra arguments'', in form of a common print method
for the mentioned S4 classes. Essentially this print method
just temporarily sets the global options according to the optional arguments
digits and show.details, calls show and then re-sets
the options to their global settings.
## set options to maximal detailedness
show.old <- getdistrModOption("show.details")
distrModoptions("show.details" = "maximal")
## define a model
NS <- NormLocationScaleFamily(mean=2, sd=3)
## generate data out of this situation
x <- r(distribution(NS))(30)
## want to estimate mu/sigma, sigma^2
## -> new trafo slot:
trafo(NS) <- function(param){
mu <- param["mean"]
sd <- param["sd"]
fval <- c(mu/sd, sd^2)
nfval <- c("mu/sig", "sig^2")
names(fval) <- nfval
mat <- matrix(c(1/sd,0,-mu/sd^2,2*sd),2,2)
dimnames(mat) <- list(nfval,c("mean","sd"))
return(list(fval=fval, mat=mat))
}
print(param(NS))
print(param(NS), show.details = "minimal")
print(param(NS), show.details = "medium")
## Maximum likelihood estimator
res <- MLEstimator(x = x, ParamFamily = NS)
print(res) #equivalent to 'show(res)' or 'res'
print(res, digits = 4)
print(res, show.details = "minimal")
print(res, show.details = "medium")
distrModoptions("show.details" = show.old)