如何将没有重复的整数向量转换为多个连续和离散的部分，并使用R以特定格式导出？

# 创建一个没有重复的整数向量
vector <- c(1, 2, 3, 5, 6, 8, 9, 10, 12, 15)

# 使用split函数将向量拆分为连续和离散的部分
split_vector <- split(vector, cumsum(c(TRUE, diff(vector) != 1)))

# 打印拆分后的部分
for (i in seq_along(split_vector)) {
  cat(paste("Part", i, ":", paste(split_vector[[i]], collapse = ", "), "\n"))
}

# 将拆分后的部分以特定格式导出
output <- ""
for (i in seq_along(split_vector)) {
  output <- paste(output, paste(split_vector[[i]], collapse = ", "), "\n")
}

# 将导出的结果写入文件
write(output, file = "output.txt")