inst/doc/intro-alphaN.R

In alphaN: Set Alpha Based on Sample Size Using Bayes Factors

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(alphaN)

## -----------------------------------------------------------------------------
alpha <- alphaN(n = 1000, BF = 1)
alpha

## -----------------------------------------------------------------------------
JAB_plot(n = 1000, BF = 1)

## -----------------------------------------------------------------------------
seqN <- seq(50, 1000, 1)
plot(seqN, alphaN(seqN), type = "l",
     xlab = "n", ylab = "Alpha")

## -----------------------------------------------------------------------------
alphaN(1000, BF = 3, method = "balanced")

## -----------------------------------------------------------------------------
alphaN_plot(BF = 3)

## -----------------------------------------------------------------------------
# alpha needed at n = 1000 for moderate evidence (BF = 3), targeting a
# medium-sized effect (de = 0.5)
alphaN(1000, BF = 3, method = "ES", de = 0.5)
alphaN(1000, BF = 3, method = "moment", de = 0.5)

## -----------------------------------------------------------------------------
ns <- c(100, 1000, 10000)
round(rbind(JAB    = alphaN(ns, BF = 3),
            ES     = alphaN(ns, BF = 3, method = "ES"),
            moment = alphaN(ns, BF = 3, method = "moment")), 5)