#Create 8 separate data frames
df1_pre <- data.frame(session = 1,
time = 1,
page = c(1),
score = rnorm(10, 7,2),
item = 1:10)
df2_pre <- data.frame(session = 1,
time = 1,
page = c(2),
score = rnorm(10, 6, 1.5),
item = 1:10)
df3_pre <- data.frame(session = 2,
time = 1,
page = c(3),
score = rnorm(10, 8, 0.5),
item = 1:10)
df4_pre <- data.frame(session = 2,
time = 1,
page = c(4),
score = rnorm(10, 8, 0.5),
item = 1:10)
df1_post <- data.frame(session = 1,
time = 2,
page = c(1),
score = rnorm(10, 7,2),
item = 1:10)
df2_post <- data.frame(session = 1,
time = 2,
page = c(2),
score = rnorm(10, 6, 1.5),
item = 1:10)
df3_post <- data.frame(session = 2,
time = 2,
page = c(3),
score = rnorm(10, 8, 0.5),
item = 1:10)
df4_post <- data.frame(session = 2,
time = 2,
page = c(4),
score = rnorm(10, 8, 0.5),
item = 1:10)
#Combine the data frames
df_combined <- rbind(df1_pre, df2_pre, df3_pre, df4_pre,
df1_post, df2_post, df3_post, df4_post)
#Randomly pull observations from df_combined
combined_out <- rs_setsoffour(df = df_combined,
first_set = time,
second_set = session,
third_set = page,
fourth_set = item,
seed_number = NA,
audit_review = "",
quantity_to_generate = 10,
quantity_of_spares = 2,
first_set_low = 1,
first_set_high = 2,
second_set_low = 1,
second_set_high = 2,
third_set_low = 1,
third_set_high = 3,
fourth_set_low = 1,
fourth_set_high = 10)
#Test dimensions of the sample
test_that("Rows in .$output$sample equals .$input$quantity_to_generate", {
expect_equal(nrow(combined_out$output$sample), combined_out$input$quantity_to_generate)
})
#Test dimensions of the spares
test_that("Rows in .$output$spares equals .$input$quantity_of_spares", {
expect_equal(nrow(combined_out$output$spares), combined_out$input$quantity_of_spares)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.