我用arules :: apriori用二进制矩阵,并且只想创建在RHS上有一个特定列的规则。这是在文档中指定的,但似乎不起作用。很容易事后过滤它,但是我首先浪费了大量的计算时间来计算所有的规则。用arules/apriori过滤rhs不起作用
例子:
library(arules)
data = data.frame(matrix(rbinom(10000,1, 0.6), nrow=1000))
for(i in 1:ncol(data)) data[,i] = as.factor(data[,i])
dsRules = as(data, "transactions")
rules = apriori(dsRules,
parameter=list(support = 0.1, minlen = 3, maxlen = 3, target= "rules", confidence = 0.7),
appearance = list(rhs = c("X1=1")))
规则现在包含3378条规则
rules.sub = subset(rules, subset = (rhs %pin% "X1=1"))
rules.sub包含172条规则
在我的实际数据,我从数以百万计结果的去〜4000这是巨大的差异。
谢谢,这将需要100年,我想出来 – 2015-05-23 15:31:19