# [Q3-2] support = 0.001, confidence = 0.05로 지정하여 분석
rules <- apriori(tmp_single, parameter=list(support=0.001, confidence=0.05))

# support순 정렬
inspect(sort(rules, by="support"))

# confidence순 정렬
inspect(sort(rules, by="confidence"))

# lift순 정렬
inspect(sort(rules, by="lift"))