[R] The KJV

[Barry Rowlingson]

On Sun, Feb 7, 2010 at 8:28 AM, Ted Harding
<Ted.Harding at manchester.ac.uk> wrote:
>
> Delightful! And fascinating in the detail too.
>
>  length(tt)
>  # [1] 5078
>
> with slight changes like:
>
>  barplot(rev(tt[1:50]),horiz=TRUE,las=1,cex.names=0.6,log="x")
>  # ...
>  barplot(rev(tt[101:150]),horiz=TRUE,las=1,cex.names=0.6,log="x")
>  # ...
>
> and see the likes of
>
>  tt["lord"]
>  # lord
>  # 1939
>
>  tt["god"]
>  # god
>  # 822
>
>  tt["men"]
>  # men
>  # 204
>
>  tt["women"]
>  # women
>  #    26
>
> I'm now wondering how it matches up with Zipf's Law (or perhaps
> Fisher's logarithmic ... )
>
> Thanks, Ben!

 I'm wondering if someone is now going to write an R package to look
for 'bible codes':

http://en.wikipedia.org/wiki/Bible_code

 it's all in there:

http://www.biblecodewisdom.com/code/model-goodness-fit-test

Barry

-- 
blog: http://geospaced.blogspot.com/
web: http://www.maths.lancs.ac.uk/~rowlings
web: http://www.rowlingson.com/
twitter: http://twitter.com/geospacedman
pics: http://www.flickr.com/photos/spacedman