Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/73.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
If语句在此for循环中不起作用 这是您的完整程序吗?而且,您可能应该编辑您的问题以包含该语言,并为该语言添加一个标记,因为我不知道这是什么语言。您不能在ifelse()中执行该操作。将作业分解出来。该行应为Percent[j,i]删除NA周围的引号。。我_R_If Statement - Fatal编程技术网

If语句在此for循环中不起作用 这是您的完整程序吗?而且,您可能应该编辑您的问题以包含该语言,并为该语言添加一个标记,因为我不知道这是什么语言。您不能在ifelse()中执行该操作。将作业分解出来。该行应为Percent[j,i]删除NA周围的引号。。我

If语句在此for循环中不起作用 这是您的完整程序吗?而且,您可能应该编辑您的问题以包含该语言,并为该语言添加一个标记,因为我不知道这是什么语言。您不能在ifelse()中执行该操作。将作业分解出来。该行应为Percent[j,i]删除NA周围的引号。。我,r,if-statement,R,If Statement,If语句在此for循环中不起作用 这是您的完整程序吗?而且,您可能应该编辑您的问题以包含该语言,并为该语言添加一个标记,因为我不知道这是什么语言。您不能在ifelse()中执行该操作。将作业分解出来。该行应为Percent[j,i]删除NA周围的引号。。我think@RichardScriven它像一个职业选手一样工作!!非常感谢!R中的许多东西都可以矢量化,通常不需要在行和列之间循环,这会使事情变得非常缓慢。 Percent <- data.frame(matrix(, nrow = 2

If语句在此for循环中不起作用
这是您的完整程序吗?而且,您可能应该编辑您的问题以包含该语言,并为该语言添加一个标记,因为我不知道这是什么语言。您不能在
ifelse()
中执行该操作。将作业分解出来。该行应为
Percent[j,i]删除NA周围的引号。。我think@RichardScriven它像一个职业选手一样工作!!非常感谢!R中的许多东西都可以矢量化,通常不需要在行和列之间循环,这会使事情变得非常缓慢。
Percent <- data.frame(matrix(, nrow = 207842, ncol = 90))
for ( j in 1 : nrow(justvalues))
{ 
  m=3
  n=2
  o=1
  for( i in 4 : ncol(justvalues))
  {
   k <- subset(justvalues, Year.of.Date == justvalues[j,i-m]-1 & Quarter.of.Date == justvalues[j,i-n] & Values.A == justvalues[j,i-o])  
   p <- k[i]
   g <- as.numeric(p)
   ifelse(g==0, Percent[j,i] = "NA" , Percent[j,i] = ((justvalues[j,i]-g)/g)*100)
   m=m+1
   n=n+1
   o=o+1
  }
}