有问题存储for循环的结果

Question

我试图将用户编写的函数的结果循环存储，但没有成功。有什么建议吗？

LASSO<-data.frame(matrix(nrow = 100, ncol = 2))
  colnames(LASSO) <- c("i", "b.LASSO")
  #Loop
  for(i in seq(from=0,to=1, by=0.01)){
    lambda<-i
    b <-soft_th(b.ols,lambda)
      LASSO[i,1]<-lambda
      LASSO[i,2]<-b
  }