data-raw/create_random_student_data.R

In mnetter589/R4BehavSciPackage: Generate Custom Barplots

if (!require("pacman")) install.packages("pacman"); library(pacman)
p_load_gh("trinker/wakefield")

set.seed(1)
random_student_data <- r_data_frame(
    n = 500,
    id(name = "studentID"),
    sex(name = "sex"),
    race(x = c("White", "Hispanic", "Black", "Asian", "Native"), prob = c(0.64, 0.16, 0.12, 0.06, 0.02), name = "race"),
    age(x = 13:15, name = "age"),
    grade_level(x = "9", name = "grade_level"),
    likert_5(x = c("1", "2", "3", "4", "5"), prob = c(.025, .125, .25, .33, .27), name = "math_motivation"),
    likert_7(x = c("1", "2", "3", "4", "5", "6", "7"), prob = c(.03, .1, .16, .15, .21, .22, .13), name = "perceived_math_meaning_week1"),
    likert_7(x = c("1", "2", "3", "4", "5", "6", "7"), prob = c(.03, .1, .15, .13, .22, .21, .16), name = "perceived_math_meaning_week2")
)

write.csv(random_student_data, file = "data-raw/random_student_data.csv")