Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/65.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_For Loop - Fatal编程技术网

修订(适用于R中的回路)

修订(适用于R中的回路),r,for-loop,R,For Loop,我之前的问题没有得到论坛的好评,所以我发布了这段更新的代码。我试图在一些数据上运行这个for循环,用表达式z-x/x填充向量的每个元素,但循环并没有停止运行。我不明白为什么 for (i in 1:length(corr_data$close)) { x <- corr_data$close[i]; z <- corr_data$open[i+1] v <- corr_data$company[i]; w <- corr_data$company[i+1] x

我之前的问题没有得到论坛的好评,所以我发布了这段更新的代码。我试图在一些数据上运行这个for循环,用表达式z-x/x填充向量的每个元素,但循环并没有停止运行。我不明白为什么

for (i in 1:length(corr_data$close)) {
  x <- corr_data$close[i]; z <- corr_data$open[i+1]
  v <- corr_data$company[i]; w <- corr_data$company[i+1]
  x <- as.numeric(x)
  z <- as.numeric(z)
  overnight_ret <- rep(NA,length(corr_data$close))
  if (identical(v, w)){
    overnight_ret[i] <- ((z - x) / x)
  } else {
    overnight_ret <- "Null"
  }
}

我想出来了。我决定在R中使用循环不是一个好主意,所以我只是偏移向量

open <- c(corr_data$open, 0)
close <- c(corr_data$close, 0)
openprice <- c(0, corr_data$open)
closeprice <- c(0, corr_data$close)

overnight_ret = (open - closeprice) / closeprice

如果这只是对其他问题的修订,请编辑旧问题,而不是创建新问题。否则它可能会被关闭为重复。我强烈建议删除此问题并编辑原始问题。如果你认为你原来的问题没有得到很好的回答,你会对人们对你重新发布现有问题的反应感到非常失望。此外,这不是一个论坛:第一件事的可能重复,如果你有for循环,你可能需要过夜_ret[i];;对于1中的i:lengthx{…};;您尝试使用index=i+1进行提取。。。你为什么不期待一个错误呢。我会的。