绘制随机性

Question

我正在寻找帮助从R中的一系列零和一系列生成这个图。我正在使用它作为一组测试来调查序列是否是随机的（通过查找模式中的模式）噪声）。 注意：这不是作业！

如，

> 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 ...

更新

按照@RomanLuštrik的建议，这是我到目前为止所得到的：

700左右抛硬币：

100,000投掷硬币：

Answer 1

一种方法是

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

修改的

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

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"))