r - 绘图随机性

Question

我正在寻求帮助，以在 R 中从一系列 1 和 0 生成此图。我将其用作一组测试之一，以调查序列是否随机(通过在噪音)。 注意:这不是作业!

例如，

> y <- rnorm(3000, 1, 2)
> plot(y)
>plot(y~y)

我的数据采用以下形式:

 >str(hv10k)
 num [1:100000] 0 1 1 1 0 0 1 0 0 0 ...

更新:

根据 @Roman Luštrik 的建议，这是我到目前为止所得到的:

大约 700 次硬币抛掷:

抛100,000次硬币:

Answer 1

一种方法是

side <- 100
my.zero <- matrix(sample(c(0,1), side^2, replace = TRUE), side)
image(my.zero)

编辑

您可以使用sample中的prob参数。

side <- 100
my.zero <- matrix(sample(c(0,1), side^2, replace = TRUE, prob = c(0.8, 2)), side)
image(my.zero)

编辑2

y <- rnorm(10000, 1, 2)
y <- matrix(ifelse(y > 0, 1, 0), ncol = 100)
image(y, col = c("white", "black"))