added set.seed stmt to Ch.3 R scripts for consistent behaviour