# descript: Print descriptive statistics In seqtest: Sequential Triangular Test

## Description

This function prints descriptive statistics for the `seqtest` object

## Usage

 `1` ```descript(x, digits = 2, output = TRUE) ```

## Arguments

 `x` `seqtest` object. `digits` integer indicating the number of decimal places to be displayed. `output` logical: if `TRUE`, output is shown.

## Author(s)

Takuya Yanagida [email protected]

## References

Rasch, D., Pilz, J., Verdooren, L. R., & Gebhardt, G. (2011). Optimal experimental design with R. Boca Raton: Chapman & Hall/CRC.

Rasch, D., Kubinger, K. D., & Yanagida, T. (2011). Statistics in psychology - Using R and SPSS. New York: John Wiley & Sons.

Schneider, B., Rasch, D., Kubinger, K. D., & Yanagida, T. (2015). A Sequential triangular test of a correlation coefficient's null-hypothesis: 0 < ρ ≤ ρ0. Statistical Papers, 56, 689-699.

`seqtest.mean`, `seqtest.prop`, `seqtest.cor`, `plot.seqtest`, `descript`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29``` ```#-------------------------------------- # Sequential triangular test for the arithmetic mean in one sample seq.obj <- seqtest.mean(56, mu = 50, theta = 0.5, alpha = 0.05, beta = 0.2) seq.obj <- update(seq.obj, x = c(54, 52, 46, 49)) descript(seq.obj) #-------------------------------------- # Sequential triangular test for the proportion in one sample seq.obj <- seqtest.prop(c(1, 1, 0, 1), pi = 0.5, delta = 0.2, alpha = 0.05, beta = 0.2) seq.obj <- update(seq.obj, x = c(1, 1, 1, 1, 1, 0, 1, 1, 1)) descript(seq.obj) #-------------------------------------- # Sequential triangular test for Pearson's correlation coefficient seq.obj <- seqtest.cor(0.46, k = 14, rho = 0.3, delta = 0.2, alpha = 0.05, beta = 0.2, plot = TRUE) seq.obj <- update(seq.obj, c(0.56, 0.76, 0.56, 0.52)) descript(seq.obj) ```