# NOT RUN {
c <- corpus("DICKENS");
fl <- cqp_flist(c, "word");
sc <- subcorpus(c, '"interesting" "to" @ []');
fl <- cqp_flist(sc, "target", "word");
sc <- subcorpus(c, '"interesting"');
fl <- cqp_flist(sc, "target", "lemma", left.context = 10, right.context = 10, cutoff = 5)
# }
Run the code above in your browser using DataLab