查找行的平均值和sd，直到R中的组的下一个NA值

# 创建一个示例数据框
df <- data.frame(
  x = c(1, 2, 3, NA, 5),
  y = c(6, 7, NA, 9, 10),
  z = c(11, 12, 13, 14, 15)
)

# 创建一个空的结果向量
results <- vector("list", nrow(df))

# 循环遍历数据框的每一行
for (i in 1:nrow(df)) {
  # 判断是否存在NA值
  if (any(is.na(df[i, ]))) {
    # 如果存在NA值，则停止计算该行的平均值和标准差
    results[[i]] <- NA
  } else {
    # 如果不存在NA值，则计算该行的平均值和标准差
    results[[i]] <- list(
      mean = mean(df[i, ]),
      sd = sd(df[i, ])
    )
  }
}

# 打印结果
for (i in 1:length(results)) {
  if (is.na(results[[i]])) {
    cat("Row", i, "contains NA values\n")
  } else {
    cat("Row", i, "mean:", results[[i]]$mean, "sd:", results[[i]]$sd, "\n")
  }
}