Simple Summary for an amerasfit Object

Prints a simple summary of a fitted amerasfit object.

Usage

# S3 method for class 'amerasfit'
print(x, digits = max(3, getOption("digits") - 3), ...)

Arguments

x

A fitted model object of class amerasfit, as returned by ameras.

digits

Number of significant digits to be printed. Default is max(3, getOption("digits") - 3).

...

Additional arguments, currently unused.

Value

Prints the ameras call, number of rows and dose realizations in the data, CPU runtime, and model coefficients. Row counts reflect omissions due to missing values and model-specific exclusions, when applicable. For objects with structured timing information, fitting time, confidence interval computation time, and total time are shown separately.

See also

ameras for model fitting, summary for a more detailed summary of the fitted models including confidence intervals if computed.

Examples

# \donttest{
data("data", package = "ameras")

## Fit the model
fit <- ameras(Y.binomial~dose(V1:V10, model="ERR"), data = data, family = "binomial", 
              methods = c("RC","ERC"))
#> Fitting RC
#> Fitting ERC

## Default print
fit
#> Call:
#> ameras(formula = Y.binomial ~ dose(V1:V10, model = "ERR"), data = data, 
#>     family = "binomial", methods = c("RC", "ERC"))
#> 
#> Number of rows: 3000
#> Number of dose realizations: 10
#> 
#> Total CPU runtime: 64.2 seconds
#> 
#> CPU runtime in seconds by method:
#> 
#>  Method    Fit  CI  Total
#>      RC  0.041 0.0  0.041
#>     ERC 64.174 0.0 64.174
#> 
#> Estimated model parameters:
#> 
#>                  RC     ERC
#> (Intercept) -0.8847 -0.8849
#> dose         0.8020  0.8214
#> 
print(fit)
#> Call:
#> ameras(formula = Y.binomial ~ dose(V1:V10, model = "ERR"), data = data, 
#>     family = "binomial", methods = c("RC", "ERC"))
#> 
#> Number of rows: 3000
#> Number of dose realizations: 10
#> 
#> Total CPU runtime: 64.2 seconds
#> 
#> CPU runtime in seconds by method:
#> 
#>  Method    Fit  CI  Total
#>      RC  0.041 0.0  0.041
#>     ERC 64.174 0.0 64.174
#> 
#> Estimated model parameters:
#> 
#>                  RC     ERC
#> (Intercept) -0.8847 -0.8849
#> dose         0.8020  0.8214
#> 

## More digits
print(fit, digits=5)
#> Call:
#> ameras(formula = Y.binomial ~ dose(V1:V10, model = "ERR"), data = data, 
#>     family = "binomial", methods = c("RC", "ERC"))
#> 
#> Number of rows: 3000
#> Number of dose realizations: 10
#> 
#> Total CPU runtime: 64.2 seconds
#> 
#> CPU runtime in seconds by method:
#> 
#>  Method    Fit  CI  Total
#>      RC  0.041 0.0  0.041
#>     ERC 64.174 0.0 64.174
#> 
#> Estimated model parameters:
#> 
#>                   RC      ERC
#> (Intercept) -0.88472 -0.88491
#> dose         0.80195  0.82142
#> 
# }