# pak::pak("JihongZ/ESRM64503", upgrade = TRUE)
library(ESRM64503)
library(kableExtra)
library(tidyverse)
#data for class example
dat <- dataIQ |>
mutate(ID = 1:5) |>
rename(IQ = iq, Performance = perf) |>
relocate(ID)
show_table(dat)
ID | Performance | IQ |
---|---|---|
1 | 10 | 112 |
2 | 12 | 113 |
3 | 14 | 115 |
4 | 16 | 118 |
5 | 12 | 114 |