mcem r语言代码_R语言关于if语句missing value where TRUEFALSE needed的错误

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