関連ルールのエラー

Question

"arules"パッケージを使用して関連ルールに次のコードを使用しようとしていました。

データリンク（http://archive.ics.uci.edu/ml/datasets/Adult）

library(Matrix) 
library(arules) 
adult<-read.table("adult.data.txt", sep = ",") 
colnames(adult)<- c("age","workclass","fnlwgt","education","education-num","marital-status","occupation","relationship","race","sex","capital-gain","capital-loss","hours-per-week","native-country","Probability for the label") 

adult[["fnlwgt"]] <- NULL 
adult[["education-num"]] <- NULL 

グループ

adult[["age"]] <- ordered(cut(adult[["age"]], c(15,25,45,65,100)), labels = c("Young", "Middle", "Older", "Senior")) 

adult[[ "hours-per-week"]] <- ordered(cut(adult[[ "hours-per-week"]], c(0,25,40,60,168)),labels = c("Part-time", "Full-time", "Over-time", "VeryHigh")) 

adult[[ "capital-gain"]] <- ordered(cut(adult[[ "capital-gain"]], c(-Inf,0, median(adult[["capital-gain"]][adult[["capital-gain"]]>0]), Inf)), labels = c("None", "Low", "High")) 
adult[[ "capital-loss"]] <- ordered(cut(adult[[ "capital-loss"]], c(-Inf,0, median(adult[["capital-loss"]][adult[["capital-loss"]]>0]), Inf)), labels = c("None", "Low", "High")) 

adult2 <- as(adult, "transactions") 
rules <- apriori(adult2, parameter = list(supp = .5, conf = .85, target = "rules", minlen=2)) 

エラー

IS = interestMeasure(rules, method = "cosine", adult2, reuse = FALSE) 

を削除します

ただし、次のエラーが発生しています。私もいくつかの "メソッド"を試しましたが、同じエラーです。私はどんなタイプの提案にも感謝します。

.local（x、transactions、...）のエラー： トランザクションがありません。アイテムセットのマイニングに使用するトランザクションを指定してください！ さらに、警告メッセージ： interestMeasure（rules、method = "cosine"、adult2、reuse = FALSE）： interestMeasure：パラメータメソッドは廃止予定です！代わりに指標を使用してください！次の行のように代わりに「方法」の「指標」を使用して、パッケージarulesについては何も知らず

Answer 1

は仕事

IS = interestMeasure(rules, measure = "cosine", adult2, reuse = FALSE) 

（ヘルプページに基づく）必要があります