if (FALSE) {
color <- as.factor(c('blue','red','red','blue','red'))
size <- as.factor(c('large','large','small','medium','large'))
x <- data.frame(color,size)
afc.1 <- afc(burt(x))
afc.2 <- afc(matlogic(x))
plotAll(afc.1)
plotAll(afc.2)
}
Run the code above in your browser using DataLab