library("pks")
# Skill function
# mu(e) = {{s, t}, {s, u}}, mu(f) = {{u}}
# mu(g) = {{s}, {t}}, mu(h) = {{t}}
sf <- read.table(header = TRUE, text = "
item s t u
e 1 1 0
e 1 0 1
f 0 0 1
g 1 0 0
g 0 1 0
h 0 1 0
")
delineate(sf)$K
e f g h
0000 0 0 0 0
0010 0 0 1 0
0100 0 1 0 0
0011 0 0 1 1
1011 1 0 1 1
1110 1 1 1 0
0111 0 1 1 1
1111 1 1 1 1
$classes
$classes$`0000`
s t u
[1,] 0 0 0
$classes$`0010`
s t u
[1,] 1 0 0
$classes$`0100`
s t u
[1,] 0 0 1
$classes$`0011`
s t u
[1,] 0 1 0
$classes$`1011`
s t u
[1,] 1 1 0
$classes$`1110`
s t u
[1,] 1 0 1
$classes$`0111`
s t u
[1,] 0 1 1
$classes$`1111`
s t u
[1,] 1 1 1
## See ?probability for further examples.