# 事务型数据转化
temp_data = data.frame(click=data_new$event_id)
temp_data$click = as.factor(temp_data$click)
tran_data = as(temp_data,'transactions')
transactionInfo(tran_data)$sequenceID = data_new$ID
transactionInfo(tran_data)$event_ID = data_new$ranks
transactionInfo(tran_data)
# 事务型数据查看
tran_data
summary(tran_data)
inspect(tran_data[1:6,]) # head(as(tran_data,'data.frame'))
itemFrequencyPlot(tran_data,topN=20,main='前二十支持度图')
# cSPADE算法
myrules = cspade(tran_data,parameter = list(support=0,maxlen=2),control = list(verbose=TRUE))
代码如上,不知道如何排版,见谅,如果可以,请指点一下。报错如下:
Error in cspade(tran_data, parameter = list(support = 0, maxlen = 2), :
transactionInfo: missing 'sequenceID' and/or 'eventID'
附件为数据,恳请大神指点!


雷达卡


京公网安备 11010802022788号







