绘图随机性

Question

我正在寻找帮助，从R和1的序列生成此图。我将它用作一系列测试中的一个来调查序列是否是随机的（通过查找模式在噪音中）。 注意：这不是功课！

例如，

> 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约掷硬币：

​​

100000掷硬币：

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) 

EDIT 2

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