Хорошо, я должен был потрудиться, пытаясь найти ответ на свой вопрос.Следующий код работает для того, что я надеялся сделать:
requirekwic <- kwic (cfrcorpus, pattern = "Requir *", window = 50) </p>
samplerequirekwic <- requirekwic [sample (nrow(requirekwic), 15),] </p>