# Convert dataframe to transactional data type df_Transactions <- as(split(Transactions[,"productname"],Transactions["SalesOrderID"]),"transactions")