# \donttest{
# Initialize a BKT model
model <- bkt(seed = 42)
# Set custom parameters for a specific skill
model <- set_coef(model, list(
"Plot non-terminating improper fraction" = list("prior" = 0.5, "learns" = 0.2)
))
# Fit the model with fixed parameters
result <- fit(model,
forgets = TRUE,
data_path = "ct.csv",
skills = "Plot non-terminating improper fraction",
fixed = list("Plot non-terminating improper fraction" = list("prior" = TRUE))
)
# }
Run the code above in your browser using DataLab