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

## ----setup, eval = F----------------------------------------------------------
#  # If devtools is not installed yet:
#  # install.packages( "devtools" )
#  devtools::install_github("CaludioZandonella/PRDA",
#                           build_vignettes = TRUE)
#  library(PRDA)

## ---- retro-------------------------------------------------------------------
set.seed(2020) # set seed to make results reproducible

retrospective(effect_size = .25, sample_n1 = 13, test_method = "pearson")

## ---- pro---------------------------------------------------------------------
prospective(effect_size = .25, power = .8, test_method = "pearson", 
            display_message = FALSE)