Eu quero criar um objeto de transação no formato de cesta que eu possa chamar a qualquer momento para minhas análises. Os dados contêm itens separados por vírgula com 1001 transações. As primeiras 10 transações são assim:

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
...

Observei que há transações duplicadas nos dados e as removi, mas cada vez que tentei ler as transações, recebi:

Erro em asMethod (objeto): não pode forçar lista com transações com itens duplicados

Aqui está o meu código:

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=",")

Tenho certeza de que há algo pequeno, mas importante, que perdi. Por favor, oferecer sua ajuda.