# NOT RUN {
#Response 1 is related to factors 1, 2, and 3
#Response 2 is related to factors 2, 3, and 4
#Response 3 is related to factors 1, 3, and 5
#Response 4 is related to factors 1 and 4
x<-matrix(c(1,1,1,0,0,
0,1,1,1,0,
1,0,1,0,1,
1,0,0,1,0), nrow = 4,byrow = TRUE)
ufccd(x)
# }
Run the code above in your browser using DataLab