如何在R中计算连续出现的次数低于阈值

# 创建一个示例向量
data <- c(1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1)

# 设置阈值
threshold <- 3

# 初始化计数器和结果向量
count <- 0
result <- c()

# 循环遍历数据
for (i in 1:length(data)) {
  # 如果当前元素为1，则计数器加一
  if (data[i] == 1) {
    count <- count + 1
  } else {
    # 如果当前元素为0，则判断计数器是否小于阈值
    # 如果小于阈值，则将计数器重置为0
    if (count < threshold) {
      count <- 0
    }
  }
  # 将当前计数器的值添加到结果向量
  result <- c(result, count)
}

# 打印结果
print(result)