tests/testthat/test-usage_1.R

In BKT: Bayesian Knowledge Tracing Model

library(testthat)
test_that("test-usage_1", {
    # parallel off
    model <- bkt(seed = 42, num_fits = 1, parallel = FALSE)
    fetch_dataset(model, "https://raw.githubusercontent.com/CAHLR/pyBKT-examples/master/data/ct.csv", ".")
    fit(model, data_path = "ct.csv", skills = ".*Plot.*")
})