Я не знаю, что поставить на ptrn
Выберите шаблон, который будет выбирать только ВСЕ слова, начинающиеся с r, s или t независимо от регистра.
ptrn <- "" # EDIT THIS LINE
reg <- gregexpr(ptrn, plath) # DO NOT EDIT THIS LINE
(rst_words <- Reduce("c",regmatches(x = plath, m = reg))) # DO NOT EDIT THIS LINE