# [Q2-1] [Q1]에서 생성된 single format의 데이터를 읽고, 해당 데이터의 속성 파악

tmp_single <- read.transactions("MOOC_User_Course.csv",
                                format = "single", cols = c(1,2), rm.duplicates=TRUE)
tmp_single
summary(tmp_single)