Skip to contents

Displays results from a "SPRT" object nicely

Source: R/SPRT-methods.R
show-SPRT-method.Rd

Method for signature "SPRT" to show results or test specification.

Usage

# S4 method for class 'SPRT'
show(object)

Arguments

object

Created as a result of a call to sprt.

Value

A summary of test results or specification (if data = NA or omitted).

Examples


test00 <- sprt(mu0 = 2,
                mu1 = 4,
                density_func = "negative binomial",
                overdispersion = 4.6,
                alpha = 0.1,
                beta = 0.1)
show(test00) # returns test specification.
#> 
#> Sequential Probability Ratio Test - Stop lines
#> Family: negative binomial
#> H0: mu = 2
#> H1: mu = 4 
#> 
#> Upper line coefficients:
#> Intercept =  5.128255
#> Slope =  2.841808
#> Lower line coefficients:
#> Intercept =  -5.128255
#> Slope =  2.841808

counts <- c(2, 5, 6, 2, 7)

test11 <- sprt(data = counts,
                mu0 = 2,
                mu1 = 4,
                density_func = "negative binomial",
                overdispersion = 4.6,
                alpha = 0.1,
                beta = 0.1)
show(test11) # returns "accept H1" after 5 sampling bouts processed.
#> 
#> Sequential Probability Ratio Test
#> Family: negative binomial
#> H0: mu = 2
#> H1: mu = 4 
#> 
#> Recommendation based on provided criteria: accept H1
#> Number of sampling bouts processed:  5

## End (Not run)