Distributions

x <- read.csv("dist.csv")
x <- x[which(x$actual > 0 & x$empty > 0),]
ggplot(x, aes(x=steps, y=actual/empty)) +geom_line() + xlim(5,100) + ylim(0,1.5) + facet_wrap(~ map)

> ggplot(x, aes(x=steps, y=actual)) +geom_line() + xlim(5,20) +ylim(0,20) +facet_wrap(~ map) + opts(title="Actual tiles N steps from Hill")