# [Q3-1] 최소한 3개 이상의 support, 3개 이상의 confidence, 총 9개 이상의 조합에 대한 규칙 생성

supportlist <- c(0.001,0.002,0.005,0.01)
confidencelist <- c(0.001,0.005,0.01,0.05)

ruleMatrix <- matrix(0, length(supportlist), length(confidencelist))
colnames(ruleMatrix) <- confidencelist
rownames(ruleMatrix) <- supportlist
ruleMatrix

for (i in 1:length(supportlist)){
  for (j in 1:length(confidencelist)){
  rules <- apriori(tmp_single, parameter=list(support=supportlist[i], confidence=confidencelist[j]))
  # Check the generated rules
  ruleMatrix[i,j] <- length(rules)
  }
}
ruleMatrix