# print.sim.seqtest.cor: Print sim.seqtest In miscor: Miscellaneous Functions for the Correlation Coefficient

## Description

This function prints the `sim.seqtest.cor` object

## Usage

 ```1 2``` ```## S3 method for class 'sim.seqtest.cor' print(x, ...) ```

## Arguments

 `x` `sim.seqtest.cor` object. `...` further arguments passed to or from other methods.

## Author(s)

Takuya Yanagida takuya.yanagida@univie.ac.at

## References

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

`sim.seqtest.cor`, `plot.sim.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 24 25 26 27``` ```## Not run: #--------------------------------------------- # Determine optimal k and nominal type-II-risk # H0: rho <= 0.3, H1: rho > 0.3 # alpha = 0.01, beta = 0.05, delta = 0.25 # Step 1: Determine the optimal size of subsamples (k) sim.obj <- sim.seqtest.cor(rho.sim = 0.3, k = seq(4, 16, by = 1), rho = 0.3, alternative = "greater", delta = 0.25, alpha = 0.05, beta = 0.05, runs = 10000, output = FALSE) print(sim.obj) # Step 2: Determine the optimal nominal type-II-risk based on # the optimal size of subsamples (k) from step 1 sim.obj <- sim.seqtest.cor(rho.sim = 0.55, k = 16, rho = 0.3, alternative = "greater", delta = 0.25, alpha = 0.05, beta = seq(0.05, 0.15, by = 0.01), runs = 10000, output = FALSE) print(sim.obj) ## End(Not run) ```

miscor documentation built on May 1, 2019, 10:14 p.m.