# update.seqtest: Update seqtest In seqtest: Sequential Triangular Test

## Description

This function updates the `seqtest` object

## Usage

 ```1 2 3``` ```## S3 method for class 'seqtest' update(object, x = NULL, y = NULL, initial = FALSE, output = TRUE, plot = TRUE, ...) ```

## Arguments

 `object` `cor.seqtest` object. `x` data for group 1. `y` data for group 2. `initial` logical, used internally for creating a `seqtest` object `output` logical: if `TRUE`, output is shown. `plot` logical: if `TRUE`, plot is shown. `...` further arguments passed to or from other methods.

## 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.

## See Also

`seqtest.mean`, `seqtest.prop`, `seqtest.cor`,

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23``` ```#-------------------------------------- # 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, plot = TRUE) seq.obj <- update(seq.obj, x = c(54, 52, 46, 49)) #-------------------------------------- # 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, plot = TRUE) seq.obj <- update(seq.obj, x = c(1, 1, 1, 1, 1, 0, 1, 1, 1)) #-------------------------------------- # 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)) ```

seqtest documentation built on May 29, 2017, 6:52 p.m.