Случайность сюжета

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

Обновление:

Следуя рекомендациям @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)

РЕДАКТИРОВАТЬ

Вы можете играть с аргументом 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"))