R 在高于特定阈值的列中查找行中的数字组

我试图在一个数据集中识别应答者，该数据集由一名患者定义，该患者在4周内的某个临床指标大于等于2

我有以下格式的患者数据集，但还有更多：

pt_num   week_0   week_1    week_2   week_3   week_4   week_5   week_6  week_7   week_8
   1        0       2          3       3        4         3       2       1         1
   2        0       2          3       3        1         3       2       1         1

在上面的例子中，患者1是应答者，患者2不是

我有一个关于如何通过在每一行和每一个单元格上循环来做到这一点的想法，但我希望有一个更有效的方法来做到这一点，感谢任何帮助

我们可以按行使用rle，并检查是否有至少一个连续4周的实例，其中一个度量值大于等于2

apply(df[-1], 1, function(x) any(rle(x >= 2)$lengths >= 4))
#[1]  TRUE FALSE