在时间序列上创建循环，以基于R中的公式生成新的数据集

# 创建一个空的数据框
new_dataset <- data.frame()

# 定义时间序列范围
start_date <- as.Date("2022-01-01")
end_date <- as.Date("2022-12-31")

# 循环遍历时间序列
for (date in seq(start_date, end_date, by = "day")) {
  # 根据公式生成新的数据
  value <- sin(as.numeric(date)) + rnorm(1)
  
  # 将数据添加到数据框中
  new_dataset <- rbind(new_dataset, data.frame(date = date, value = value))
}

# 打印新的数据集
print(new_dataset)