#ler arquivo de itemsets
t <- readLines("~/Documentos/doutorado/PAE/Mineração de Dados Biológicos/Supplemental file 3 38419.txt")

#Percorrer todos os itemsets e pegar os items presentes
itemset <- mapply(1:length(t), FUN= function(x){
  aux <- strsplit(t[x],split = "\t", fixed = T)[[1]]
  return(aux)
})
items <- unlist(itemset)

#Remover items repetidos e ordená-los em ordem alfabética
items <- unique(items)
items <- sort(items)
cnames <- gsub("|","-",items,fixed=T)

#Gerar tabela
tab <- mapply(1:length(itemset),FUN=function(x){
  line <- items %in% itemset[[x]]
  return(line)
})
tab <- t(tab)
colnames(tab) <- cnames
tab <- tab*1

write.csv(x = tab,file = "Colombos.csv")