# NOT RUN {
list_flat <- list('A' = c('a', 'aa', 'aaa'), 'B' = c('b', 'bb'), 'C' = c('c', 'cc'), 'D' = c('ddd'))
dict_flat <- quanteda:::list2dictionary(list_flat)
quanteda:::nest_dicitonary(dict_flat, c(1, 1, 2, 2))
quanteda:::nest_dicitonary(dict_flat, c(1, 2, 1, 2))
# }
Run the code above in your browser using DataLab