data(example_data)
# identify skipgrams
toks_m <- skipgram_identify(x = example_data$free_text,
ids = example_data$patient_id,
max_interrupt_words = 5)
# add skipgrams by minimum frequency
skipgram_append(toks_m,
id_var = patient_id,
min_freq = 0.6,
data = example_data)
# add specific skipgrams
skipgram_append(toks_m,
id_var = patient_id,
skipgrams2append = c("sixteen_week", "bad_strain"),
data = example_data)
Run the code above in your browser using DataLab