Я пытался использовать следующий код для правил ассоциации, используя пакет «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, transaction,...): транзакции отсутствуют. Пожалуйста, укажите транзакции, используемые для майнинга наборов предметов! Кроме того: Предупреждающее сообщение: IninterestMeasure (правила, метод = «косинус», Adult2, повторное использование = FALSE): InterestMeasure: метод параметра устарел! Вместо этого используйте меру!
