example_blueprint <- construct_blueprint(N_blocks = 5, block_size = 3,
traits = sample(c("Openness",
"Conscientiousness",
"Extraversion",
"Agreeableness",
"Neuroticism"), 15, replace = TRUE),
signs = sample(c(-1, 1), 15, replace = TRUE))
Run the code above in your browser using DataLab