data(schoolarithm)
## Fraction problems used in Stefanutti and de Chiusole (2017)
R <- fraction17[, c(4:8, 10:11, 15:20)]
colnames(R) <- 1:13
N.R <- as.pattern(R, freq = TRUE)
## Conjunctive skill function in Table 1
sf <- read.table(header = TRUE, text = "
item a b c d e f g h
1 1 1 1 0 1 1 0 0
2 1 0 0 0 0 0 1 1
3 1 1 0 1 1 0 0 0
4 1 1 0 0 1 1 1 1
5 1 1 0 0 1 1 0 0
6 1 1 1 0 1 0 1 1
7 1 1 0 0 1 1 0 0
8 1 1 0 0 1 0 1 1
9 0 1 0 0 1 0 0 0
10 0 1 0 0 0 0 0 0
11 0 0 0 0 1 0 0 0
12 1 1 0 0 1 0 1 1
13 0 0 0 0 0 1 0 0
")
K <- delineate(sf)$K # delineated knowledge structure
blim(K, N.R)
## Subtraction problems used in de Chiusole and Stefanutti (2013)
N.R <- as.pattern(subtraction13$R, freq = TRUE)
# Skill function in Table 1
# (f) mastering tens and hundreds; (g) mastering thousands; (h1) one borrow;
# (h2) two borrows; (h3) three borrows; (i) mastering the proximity of
# borrows; (j) mastering the presence of the zero; (k) mental calculation
sf <- read.table(header = TRUE, text = "
item f g h1 h2 h3 i j k
1 0 0 1 0 0 0 0 0
2 1 0 1 0 0 0 0 0
3 1 0 1 0 0 1 0 0
4 1 0 1 1 1 0 1 0
4 0 0 0 0 0 0 0 1
5 1 0 1 1 1 1 0 0
6 1 1 1 1 0 0 0 0
7 1 0 1 1 1 1 0 0
8 1 1 1 1 1 0 0 0
")
K <- delineate(sf)$K
blim(K, N.R)
Run the code above in your browser using DataLab