gistfile1.r

noises.stack           <- na.omit(stack(read.csv('Pilot_Transpose_arules test.csv', header=FALSE)))
noises.stack$syllables <- 1
noises.stack$time      <- cumsum(noises.stack$syllables)
noises.stack           <- noises.stack[,c('ind', 'time', 'syllables', 'values')]

# convert cols to factors and then change the dataframe into a transactions class object
noises.col_names                <- names(noises.stack)
noises.stack[,noises.col_names] <- lapply(noises.stack[,noises.col_names], factor)
noises.tran                     <- as(noises.stack, 'transactions')