Nothing
context("test-dina")
## Test Setup for DINA ----
# Set a seed for reproducibility
set.seed(888)
# Setup Parameters
N = 15 # Number of Examinees / Subjects
J = 10 # Number of Items
K = 2 # Number of Skills / Attributes
# Assign slipping and guessing values for each item
ss = gs = rep(.2, J)
# Simulate identifiable Q matrix
Q = sim_q_matrix(J, K)
# Simulate subject attributes
subject_alphas = sim_subject_attributes(N, K)
## Unit Tests for DINA ----
test_that("Verify DINA item simulation is reproducible", {
# Set a seed for reproducibility
set.seed(7762)
# Simulate items under the DINA model
items_dina_a = sim_dina_items(subject_alphas, Q, ss, gs)
# Set a seed for reproducibility
set.seed(7762)
# Simulate items under the DINA model
items_dina_b = sim_dina_items(subject_alphas, Q, ss, gs)
expect_equal(items_dina_a, items_dina_b,
info = "Ensure that items are the same under a set seed")
})
test_that("Verify DINA attribute simulation is reproducible", {
# Set a seed for reproducibility
set.seed(44820)
# Simulate attributes under the DINA model
attributes_a = sim_dina_attributes(subject_alphas, Q)
# Set a seed for reproducibility
set.seed(44820)
# Simulate attributes under the DINA model
attributes_b = sim_dina_attributes(subject_alphas, Q)
expect_equal(attributes_a, attributes_b,
info = "Ensure that attributes are the same under a set seed")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.