Inclass Exercise 04

Show the code

pacman::p_load(rstatix, gt, patchwork, tidyverse)

Show the code

exam_data <- read.csv("data/Hands-on_Ex04/Exam_data.csv")

The plot

The code chunk

Show the code

ggplot(exam_data,
       aes(sample=ENGLISH)) +
  stat_qq() +
  stat_qq_line()

Note

Note: some note here

The plot

The code chunk

Show the code

qq <- ggplot(exam_data,
       aes(sample=ENGLISH)) +
  stat_qq() +
  stat_qq_line()

sw_t <- exam_data %>%
  shapiro_test(ENGLISH) %>%
  gt()

tmp <- tempfile(fileext = '.png')
gtsave(sw_t,tmp)
table_png <- png::readPNG(tmp,native = TRUE)

qq + table_png