Provides print methods for objects.

# S4 method for EL
print(x, digits = max(3L, getOption("digits") - 3L), ...)

# S4 method for ELMT
print(x, digits = max(3L, getOption("digits") - 3L), ...)

# S4 method for ELT
print(x, digits = max(3L, getOption("digits") - 3L), ...)

# S4 method for LM
print(x, digits = max(3L, getOption("digits") - 3L), ...)

# S4 method for SummaryEL
print(x, digits = max(3L, getOption("digits") - 3L), ...)

# S4 method for SummaryELMT
print(
  x,
  digits = max(3L, getOption("digits") - 3L),
  signif.stars = getOption("show.signif.stars"),
  ...
)

# S4 method for SummaryELT
print(x, digits = max(3L, getOption("digits") - 3L), ...)

# S4 method for SummaryGLM
print(
  x,
  digits = max(3L, getOption("digits") - 3L),
  signif.stars = getOption("show.signif.stars"),
  ...
)

# S4 method for SummaryLM
print(
  x,
  digits = max(3L, getOption("digits") - 3L),
  signif.stars = getOption("show.signif.stars"),
  ...
)

Arguments

x

An object to be printed.

...

Further arguments passed to methods.

digits

A single integer for the number of significant digits to be passed to format().

signif.stars

A single logical. If TRUE, ‘significance stars’ are printed for each parameter.

Value

The argument x (invisibly).

See also

Examples

data("precip")
fit <- el_mean(precip, par = 40)
print(fit)
#> 
#> 	Empirical Likelihood
#> 
#> Model: mean 
#> 
#> Maximum EL estimates:
#> [1] 34.89
#> 
#> Chisq: 9.957, df: 1, Pr(>Chisq): 0.001602
#> EL evaluation: converged 
#>