Question

我想使用runif在R中创建一系列随机2D点。有什么好办法呢？

这是我目前的实施（不起作用）

getpoints <- function(n)
  {
    t <- 1:n;
    for (i in 1:n)
      {
        t[i] <- runif(2,-1,1)
      }
    return (t)
  }

Answer 1

n <- 200
o <- matrix(runif(2*n, min = -1, max = 1), ncol = 2)

Answer 2

 n <- 5
 cbind(runif(n,-1,1),runif(n,-1,1))
            [,1]       [,2]
[1,] -0.68434317 -0.7772889
[2,] -0.91200792 -0.6408075
[3,] -0.01888610  0.7350491
[4,]  0.01782097  0.9674700
[5,] -0.56707264 -0.9991566

Answer 3

只需添加您在此处提供的众多答案。像@ Arun这样的那个，如果有必要，可以轻松处理超过2列。

replicate(2, runif(100))

它可能几乎是基准时间。

Answer 4

为了概述这个线程，首先我将展示与所使用的几种方法相关的速度（因此你可以得出你自己的最佳结论），然后我会告诉你如何使用功能;也就是你想要的功能。

n <- 1000000

> system.time(cbind(runif(n, -1, 1), runif(n, -1, 1)))
   user  system elapsed 
   0.28    0.03    0.31 
> system.time(matrix(runif(2*n, min = -1, max = 1), ncol = 2))
   user  system elapsed 
   0.32    0.00    0.33 
> system.time(replicate(2, runif(n, -1, 1)))
   user  system elapsed 
   0.26    0.02    0.35

这是功能和时间基准：

getPoints <- function (N) {
  pointMatrix <- matrix(1, nrow = 1000000, ncol = 2) 
  for (i in 1:N) {
    pointMatrix[i, ] <- runif(2, -1, 1) # it needs to run for all columns
  }
}

> system.time(getPoints(n))
   user  system elapsed 
  17.59    0.04   19.94 
>

在R中创建一对对的好方法？

4 个答案: