tests/testthat/test-rs_setsoffour.R

#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)
})
mncube/claimr documentation built on Dec. 21, 2021, 8:07 p.m.