apriori
df
#找出频繁候选1项集
for(i in 1:length(data))
for(j in 1:length(data[[i]])){
if(any(df$candidate == data[[i]][j]))
df$countnum[which(df$candidate==data[[i]][j])]
else {
#添加新元素
a
df
}
}
#提取大于最小支持度的元素
df1=minsup),]
#频繁n项集
k
df2
for(i in 1:nrow(df1))
for(j in (i+1):nrow(df1)){
if(sum(df1$candidate[i]==df$candidate[j])==k){
rownum
df2[rownum,]
}
}
return(df2)
}
list1
T600=c("I2","I3"),T700=c("I1","I3"),T800=c("I1","I2","I3","I5"),T900=c("I1","I2","I3"))
result
result
错误代码:Error in if (sum(df1$candidat