r - 如何编写嵌套的 IF 和 RAND excel 语句

Question

我正在尝试在 R 中生成一个包含随机二进制 1 和 0 行的列。

在 excel 中，我可以在新列中将其写为 if(rand()< $A$1,1,0) .

其中 1 美元 = 0.1。因此，如果任何随机数小于 0.1，它将返回 1。因此，结果将打印一列具有 1 和 0 的随机行。

在R中，我写下了

data$binary <- ifelse(runif(1,0,1)<0.1,1,0) 

我得到的只是1的值。

如果生成的随机数小于 0.1，则返回 1，否则返回 0。

非常感谢您的帮助!

Answer 1

与 runif您可以使用

n <- 10
+(runif(n,0,1) < 0.1)

由于 +(runif(n,0,1) < 0.1) n 的 10% 平均为 1 , 你也可以使用 sample用概率论点会给你同样的结果。

sample(c(0, 1), n, replace = TRUE, prob = c(0.9, 0.1))