R循环功能忽略序列增量

Question

我需要将cos（i）附加到i的所有递增值的“result”，但是此代码仅附加未递增的值。

result <- c()
for (i in seq(1,20,.1))
{
  print(cos(i))
  result[[i]] <- cos(i) 
}

为什么会这样？