d1 <- dfm(c("a b c", "a b c d"))
d2 <- dfm(letters[1:6])
dtest <- dfm_select(d1, d2)
textstat_simil(dtest, margin = 'features', selection = 'a')
textstat_simil(dtest, margin = 'features', selection = 1) # error
textstat_simil(dtest, margin = 'documents', selection = 'text1')
textstat_simil(dtest, margin = 'documents', selection = 1) # error
textstat_dist(dtest, margin = 'features', selection = 'a')
textstat_dist(dtest, margin = 'features', selection = 1) # error
textstat_dist(dtest, margin = 'documents', selection = 'text1')
textstat_dist(dtest, margin = 'documents', selection = 1) # error