Question

I am looking for help with generating this plot from a sequence of ones and zeros, in R. I am using it as one of a battery of tests to investigate whether a sequence is random or not (by looking for patterns in the noise).
Note: This is not homework!

E.g.,

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

My data is in this form:

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

Update:

Following @Roman Luštrik suggestions this is what I’ve got so far:

700 approx coin toss:

100,000 coin toss:

Answer 1

One way would be

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

EDIT

You can play with the prob argument in sample.

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