Я хочу создать объект транзакции в формате корзины, который я могу вызывать в любое время для анализа. Данные содержат разделенные запятыми элементы со 1001 транзакцией. Первые 10 транзакций выглядят так:

hering,corned_b,olives,ham,turkey,bourbon,ice_crea
baguette,soda,hering,cracker,heineken,olives,corned_b
avocado,cracker,artichok,heineken,ham,turkey,sardines
olives,bourbon,coke,turkey,ice_crea,ham,peppers
hering,corned_b,apples,olives,steak,avocado,turkey
sardines,heineken,chicken,coke,ice_crea,peppers,ham
olives,bourbon,coke,turkey,ice_crea,heineken,apples
corned_b,peppers,bourbon,cracker,chicken,ice_crea,baguette
soda,olives,bourbon,cracker,heineken,peppers,baguette
corned_b,peppers,bourbon,cracker,chicken,bordeaux,hering
...

Я заметил, что в данных есть дублированные транзакции и удалил их, но каждый раз, когда я пытался прочитать транзакции, я получаю:

Ошибка в asMethod (объект): невозможно привести список к транзакциям с дублированными элементами

Вот мой код:

data <- read.csv("AssociationsItemList.txt",header=F)
data <-  data[!duplicated(data),]
pop <- NULL
for(i in 1:length(data)){
pop <- paste(pop, data[i],sep="\n")
}
write(pop, file = "Trans", sep = ",")
transdata <- read.transactions("Trans", format = "basket", sep=",")

Я уверен, что есть кое-что небольшое, но важное, что я пропустил. Пожалуйста, предложите вашу помощь.