R 循环索引跳过值

Question

SEQ = seq(1,2,.1)
FORMULA = numeric(length(SEQ))

for (i in SEQ) {
FORMULA1 = i^2
  # Store the results in the vectors
  FORMULA[i] <- FORMULA1
}

我知道问题出在索引 FORMULA[i] 中，但我不知道如何解决这个问题，我希望这样做

Answer 1

代替

FORMULA1 = i^2

做

FORMULA1 = SEQ[i]^2

:

SEQ = seq(1, 2, .1)
FORMULA = numeric(length(SEQ))

for (i in 1:length(SEQ)) {
  FORMULA1 = SEQ[i]^2
  # Store the results in the vectors
  FORMULA[i] <- FORMULA1
}
FORMULA

 [1] 1.00 1.21 1.44 1.69 1.96 2.25 2.56 2.89 3.24 3.61 4.00