识别R中的启动和停止序列以及运行长度

sequence <- c(1, 1, 1, 0, 0, 1, 1, 1, 1)

rle_result <- rle(sequence)

# 启动序列
start_sequence <- rle_result$values
# 停止序列
stop_sequence <- cumsum(rle_result$lengths)

# 运行长度
run_length <- rle_result$lengths

sequence <- c(1, 1, 1, 0, 0, 1, 1, 1, 1)
rle_result <- rle(sequence)

start_sequence <- rle_result$values
stop_sequence <- cumsum(rle_result$lengths)
run_length <- rle_result$lengths

print("启动序列:")
print(start_sequence)

print("停止序列:")
print(stop_sequence)

print("运行长度:")
print(run_length)

[1] "启动序列:"
[1] 1 0 1
[1] "停止序列:"
[1] 3 5 9
[1] "运行长度:"
[1] 3 2 4