On Sun, Feb 7, 2010 at 8:28 AM, Ted Harding <ted.hard...@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 ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.