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

## ----setup--------------------------------------------------------------------
library(psyntur)

## -----------------------------------------------------------------------------
t_test(trustworthy ~ face_sex, data = faithfulfaces)

## -----------------------------------------------------------------------------
pairedsleep

## -----------------------------------------------------------------------------
paired_t_test(y1, y2, data = pairedsleep)

## -----------------------------------------------------------------------------
data_df <- dplyr::mutate(vizverb, IV = interaction(task, response))

## -----------------------------------------------------------------------------
pairwise_t_test(time ~ IV, data = data_df)

## -----------------------------------------------------------------------------
shapiro_test(time, data = data_df)

## -----------------------------------------------------------------------------
shapiro_test(time, by = IV, data = data_df)