Phân tích bảng hai chiều cho từng đặc điểm thông tin cá nhân và các đáp án

setwd("D:/Dropbox/DU AN QA/Cac de tai/FTU/FACEBOOK CO HUONG")
data<-read.csv("data.csv")
library(MRCV)
item.response.table(data=data,I=1,J=8)
##                                                                     
##    AGE      INCOME      FB      INSTA      YOUTUBE      TWITTER     
##    0   1    0      1    0  1    0     1    0       1    0       1   
##  1 507 18   487    25   4  524  149   379  112     415  428     100 
##  2 120  6   107     7   3  126   55    74   28     101  108      21 
##                         
##  LINKEDLN      ZALO     
##  0        1    0    1   
##  443      85   226  302 
##  109      20    72   57