# 事务型数据转化

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'
附件为数据，恳请大神指点！