Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/wpf/12.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在R中附加到列表_R - Fatal编程技术网

如何在R中附加到列表

如何在R中附加到列表,r,R,我试图选择黄土模型的最佳跨度参数。我需要将I和标准错误存储到一个名为error的列表中。在我从0.10运行到1之后,我可以比较最小的错误和用于模型的相应I。我试过这个,但似乎不起作用。有什么想法吗 z<-1 for(i in seq(from=0, to=1, by=0.10)){ tryCatch({ mdl <- loess(data=final.train, mCpu ~ mTrans_A,control=loess.control(surface="direc

我试图选择黄土模型的最佳跨度参数。我需要将I和标准错误存储到一个名为error的列表中。在我从0.10运行到1之后,我可以比较最小的错误和用于模型的相应I。我试过这个,但似乎不起作用。有什么想法吗

z<-1
for(i in seq(from=0, to=1, by=0.10)){
  tryCatch({
      mdl <- loess(data=final.train, mCpu ~ mTrans_A,control=loess.control(surface="direct"), span=i)
      error[[z]]<-i
      error[[ z ]] <- mdl$s
      z=z+1
  }, error = function(err) {

  })
}
z将
z
i
都用作循环索引是很奇怪的(而且可能有缺陷)。就挑一个吧。您还需要初始化结果列表

error = list()
my_seq = seq(from=0, to=1, by=0.10)
for(i in seq_along(my_seq)){
  tryCatch({
      mdl <- loess(data=final.train, mCpu ~ mTrans_A,control=loess.control(surface="direct"), span=my_seq[i])
      error[[i]] <- mdl$s
  }, error = function(err) return(NA))
}
error=list()
my_seq=seq(从=0到=1,由=0.10)
因为(我的顺序){
tryCatch({
mdl将
z
i
都用作循环索引是很奇怪的(而且可能存在错误)。只需选择一个。您还需要初始化结果列表

error = list()
my_seq = seq(from=0, to=1, by=0.10)
for(i in seq_along(my_seq)){
  tryCatch({
      mdl <- loess(data=final.train, mCpu ~ mTrans_A,control=loess.control(surface="direct"), span=my_seq[i])
      error[[i]] <- mdl$s
  }, error = function(err) return(NA))
}
error=list()
my_seq=seq(从=0到=1,由=0.10)
因为(我的顺序){
tryCatch({
mdl