在R中，使用循环(或while或for)执行在两个不同时间测量的变量之间的相关性测试

# 示例数据
set.seed(123)  # 设置随机种子以便重现
time_points <- 10  # 时间点数量
data <- data.frame(
  time = 1:time_points,
  var1 = rnorm(time_points),  # 随机生成 var1
  var2 = rnorm(time_points)   # 随机生成 var2
)

print(data)

# 初始化一个向量来存储相关性结果
correlations <- numeric(time_points)

# 使用 for 循环计算相关性
for (i in 1:time_points) {
  correlations[i] <- cor(data$var1[i], data$var2[i])  # 计算 var1 和 var2 的相关性
}

# 打印相关性结果
print(correlations)

# 使用 apply 函数计算相关性
correlations_apply <- apply(data[, c("var1", "var2")], 1, cor)

# 打印相关性结果
print(correlations_apply)

# 初始化变量
i <- 1
correlations_while <- numeric(time_points)

# 使用 while 循环计算相关性
while (i <= time_points) {
  correlations_while[i] <- cor(data$var1[i], data$var2[i])
  i <- i + 1
}

# 打印相关性结果
print(correlations_while)