## ----setup, include=FALSE-----------------------------------------------------
library(SampleSizeR)

## ----prevalence---------------------------------------------------------------
ss_prevalence(
  prevalence = 0.20,
  precision = 0.05
)

## ----cohort-------------------------------------------------------------------
ss_cohort(
  p0 = 0.10,
  risk.ratio = 2
)

## ----case-control-------------------------------------------------------------
ss_case_control(
  odds.ratio = 2.0,
  p0 = 0.15,
  alpha = 0.05,
  power = 0.80,
  ratio = 1
)

## ----diagnostic-sensitivity---------------------------------------------------
ss_diagnostic_sensitivity(
  sensitivity = 0.90,
  prevalence = 0.20,
  precision = 0.05,
  conf.level = 0.95
)

## ----diagnostic-specificity---------------------------------------------------
ss_diagnostic_specificity(
  specificity = 0.90,
  prevalence = 0.20,
  precision = 0.05,
  conf.level = 0.95
)

## ----diagnostic-auc-----------------------------------------------------------
ss_diagnostic_auc(
  auc = 0.80,
  prevalence = 0.20,
  precision = 0.05,
  design = "precision",
  method = "obuchowski"
)

## ----diagnostic-agreement-----------------------------------------------------
ss_diagnostic_agreement(
  kappa1 = 0.70,
  kappa0 = 0.40,
  prevalence = 0.50,
  alpha = 0.05,
  power = 0.80,
  method = "pearson"
)

## ----result-methods-----------------------------------------------------------
result <- ss_prevalence(
  prevalence = 0.20,
  precision = 0.05
)

print(result)
summary(result)
as.data.frame(result)

## ----plot, eval=FALSE---------------------------------------------------------
# plot(result)