错误: 意外的'for' 于 "compare_sums <-function(n) { i_sum <- sum(1/i for"

这个错误提示意味着你在R语言中遇到了语法问题。在`compare_sums <- function(n) {`这行的函数定义里，你试图在一个表达式中使用`for`，但R语言在这里期望的是循环结构，比如`for loop`或者`lapply()`, `sapply()`等。正确的部分应该是对`i`从1到`n`求和，而不是在`sum`函数内部直接使用`for`。

正确的代码片段可能是这样的：

compare_sums <- function(n) {
  i_sum <- sum(1/i) # 如果你是想计算1/i的和，这里不需要for循环
  for (i in 1:n) {
    i_sum <- i_sum + 1/i
  }  
  return(i_sum)
}

或者，如果你真的想要累加每个分数，应该去掉`sum`前的`for`：

compare_sums <- function(n) {
  i_sum <- 0
  for (i in 1:n) {
    i_sum <- i_sum + 1/i
  }
  return(i_sum)
}