10.6 Pattern Classification Accuracy

In addition to classification accuracy at individual attribute level, we may be also interested in pattern level accuracy.

Given a finite sample $y$ of size $n$, we can estimate a pattern level accuracy (Iaconangelo, 2017) as in

$${\hat{p}}_{{\alpha }_c}=\frac{1}{n}\sum _{i=1}^{n}P({\alpha }_i={\alpha }_c|y_i)I({\hat{\alpha }}_i={\alpha }_c|y_i)$$ The following code finds the pattern level accuracy for attribute profile 000:

Code

library(GDINA)
Y <- ecpe$dat
Q <- ecpe$Q
lcdm <- GDINA(Y, Q, model = "GDINA", verbose = 0)
post <- exp(indlogPost(lcdm))
MAP <- personparm(lcdm, "MAP")[, 1:3]
p000 <- mean(post[which(rowSums(MAP) == 0), 1])
p000

## [1] 0.8144