Question

我对R中复制函数的输出感到困惑，我试图以两种不同的方式使用它，（在我看来）应该给出一个矩阵作为输出！

所以，如果我使用

replicate(5, seq(1,5,1))

我得到一个矩阵5x5

    [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    1    1    1
[2,]    2    2    2    2    2
[3,]    3    3    3    3    3
[4,]    4    4    4    4    4
[5,]    5    5    5    5    5

..没关系，我明白了......

但是，如果我改为使用：

replicate(5, for(i in 1:5){print(i)})

我得到以下内容：

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[[1]]
NULL

[[2]]
NULL

[[3]]
NULL

[[4]]
NULL

[[5]]
NULL

任何人都可以解释我为什么会这样？谢谢:)）

Answer 1

for循环返回NULL。所以在第二种情况下，replicate函数正在执行for(i in 1:5){print(i)}五次，这就是为什么你看到所有这些数字打印出来的原因。

然后它将返回值放在列表中，因此replicate调用的返回值是五个NULL的列表，它将被打印出来。执行

x<-replicate(5, for(i in 1:5){print(i)})
x

应澄清。

Answer 2

正如@mrip所说，for循环返回NULL，因此你需要分配给循环中的一个对象，并将该对象返回replicate，以便它可以输出。您还需要将replicate的输出分配给一个名称，这样它就不会消失，呃，会收集垃圾。：

d <- numeric(5); res <- replicate(5, { 
                            for(i in 1:5){d[i] <- print(i)} ; d}
                                  )
[1] 1
[1] 2

snipped
[1] 4
[1] 5
> res
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    1    1    1
[2,]    2    2    2    2    2
[3,]    3    3    3    3    3
[4,]    4    4    4    4    4
[5,]    5    5    5    5    5

Answer 3

for循环返回一个列表，而seq()调用则返回一个向量。这应该与使用for循环的seq()相同

foo <- function(){
  b = list()
  for(i in 1:5) b[i] <- i
  do.call(c, b)
}

replicate(5, foo())

在R中复制功能

3 个答案: