Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/81.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中的循环问题,作为新手 N_R_Loops_For Loop - Fatal编程技术网

对于R中的循环问题,作为新手 N

对于R中的循环问题,作为新手 N,r,loops,for-loop,R,Loops,For Loop,所以我想你可能只是想把N打印出来,而不是t N <- c(6, 11, 21) for (t in 4:20) { N[t] <- round( 0.5*N[t-1] + sqrt(N[t-2]) + log10(1+N[t-3]) ) } N ## [1] 20 N您是否打算打印出N?如果您想让它在每次for循环运行时打印t的值,可以将print(t)添加到花括号内的代码中,它将在每次循环运行时打印。我正试图打印出N的内容,在这种情况下,打印出N当前产生的问题与我最初遇到

所以我想你可能只是想把N打印出来,而不是t

N <- c(6, 11, 21)

for (t in 4:20) {
  N[t] <- round( 0.5*N[t-1] + sqrt(N[t-2]) + log10(1+N[t-3]) )
}

N
## [1] 20

N您是否打算打印出
N
?如果您想让它在每次for循环运行时打印
t
的值,可以将
print(t)
添加到花括号内的代码中,它将在每次循环运行时打印。我正试图打印出N的内容,在这种情况下,打印出N当前产生的问题与我最初遇到的问题相同;打印方法(t)似乎也不能解决问题。您编写了
t
,而不是
N
。您是想在每次循环运行时看到N的内容,还是只是在循环结束时看到N的结果值?如果是后者,只需将结尾处的
t
替换为
N
,您就会看到
N
的内容。一旦您提出,我很快意识到打印t而不是N是一个问题。现在,我正在尝试在循环每次运行时打印N的内容。如果您希望它每次运行时打印
N
,请按照我在第一条评论中所说的做,但将
t
替换为
N
。成功了!奇怪的是,我曾多次尝试打印N,但都没有成功,但从你的评论中复制并粘贴就成功了。
N <- c(6, 11, 21)
for (t in 4:20) {N[t] <- round( 0.5*N[t-1] + sqrt(N[t-2]) + log10(1+N[t-3]) )}
N

[1]  6 11 21 15 13 12 11 10  9  9  9  8  8  8  8  8  8  8  8  8