Printing method for chisqcens object.

Printing method for chisqcens object.

# S3 method for class 'chisqcens'
print(x, prnt = TRUE, outp = c("list", "table"),  degs = 3, print.AIC = TRUE,
      print.BIC = TRUE, print.infoBoot = FALSE, ...)

Arguments

x

An object of class chisqcens.

prnt

Logical to indicate if the estimations of the chi-squared statistic and p-value should be printed. Default is TRUE.

outp

Indicator of how the output will be displayed. The possible formats are list and table.

degs

Integer indicating the number of decimal places of the numeric results of the output.

print.AIC

Logical to indicate if the AIC of the model should be printed. Default is TRUE

print.BIC

Logical to indicate if the BIC of the model should be printed. Default is TRUE

print.infoBoot

Logical to indicate if the number of bootstrap samples used should be printed. Default is FALSE

...

Additional arguments.

Value

If prnt = TRUE, a list or table (if outp = "table") containing the following components:

Distribution

Null distribution.

Hypothesis

Parameters under the null hypothesis (if params0 is provided).

Test

Vector containing the value of the test statistic (Statistic) and the estimated p-value (p-value).

Estimates

Vector with the maximum likelihood estimates of the parameters of the distribution under study.

StdErrors

Vector containing the estimated standard errors.

CellNumber

Vector with two values: the original cell number introduced by the user and the final cell number used.

aic

The Akaike information criterion.

bic

The so-called BIC or SBC (Schwarz Bayesian criterion).

BS

The number of bootstrap samples used.

The list is also returned invisibly.

Author

K. Langohr, M. Besalú, M. Francisco, A. Garcia, G. Gómez.

Examples

# List output
set.seed(123)
chisqcens(times = rweibull(100, 12, scale = 4), M = 8, distr = "weibull",
          BS = 149)
#> Distribution: weibull 
#> 
#> Chi-squared Test results:
#> Statistic   p-value 
#>     3.546     0.667 
#> 
#> Parameter estimates (se):
#> shape             scale             
#> 12.241 (0.938)     4 (0.034)     
#> 
#> Cell numbers:
#> Original    Final 
#>        8        8 
#> 
#> AIC: 84.375 
#> BIC: 89.585 
#> 

# Table output
set.seed(123)
print(chisqcens(times = rweibull(100, 12, scale = 4), M = 8, distr = "weibull",
                BS = 99), outp = "table")
#> Distribution: weibull 
#> 
#> Chi-squared Test results:
#> --------- | ---------
#> Metric    | Value    
#> --------- | ---------
#> Statistic | 3.546    
#> p-value   | 0.67     
#> --------- | ---------
#> 
#> Parameter estimates:
#> --------- | --------- | ---------
#> Parameter | Value     | s.e.     
#> --------- | --------- | ---------
#> shape     | 12.241    | 0.938    
#> scale     | 4         | 0.034    
#> --------- | --------- | ---------
#> 
#> Cell numbers:
#> Original  | Final    
#> --------- | ---------
#> 8         | 8        
#> --------- | ---------
#> 
#> AIC: 84.375 
#> BIC: 89.585 
#>