#arulesのインストールが済んでいない場合，以下の行を実行してください．

install.packages("arules")

#パッケージの読み込み

library("arules")

#以下を実行したときに表示されるフォルダ名にデータ（v08c6tv.csv）を置いてください．

getwd()

#問4

#トランザクション・データの作成．

c6item <- list(

c("B","D","E"),

c("A","D"),

c("D","E"),

c("B","C","E"),

c("D"),

c("C","D","E"),

c("B","C","D","E"),

c("C","E"),

c("A","B","D","E"),

c("B","C")

)

#作成したデータを分析のためtransactions形式に変換．

c6itemtr <- as(c6item, "transactions")

#アプリオリアルゴリズムによる組み合わせの抽出

c6itemapr <- apriori(c6itemtr, parameter = list(support = 0.3, confidence = 0.6))

#ルールの表示．

inspect(head(sort(c6itemapr, by = "lift")))

#問5，ここでは表6-5の結果を出すための設定を示します．

#データ読み込み

c6tv <- read.csv("v08c6tv.csv")

#transactions形式に変換．

c6tr <- as(c6tv, "transactions")

#アプリオリアルゴリズムによる組み合わせの抽出

c6tvapr <- apriori(c6tr, parameter = list(support = 0.03, confidence = 0.2,maxlen = 13))

#ルールの表示．

inspect(head(sort(c6tvapr, by = "lift"), n = 20))

#====================================================

#2022.09.09 齋藤朗宏・荘島宏二郎