Modify the code in the chapter’s Web page by making y <- rnorm(50, 0, 1) + .3*x and plotting the result. The mean correlation should be about 28. Now change the sample size to N = 10 and repeat the plot. What does that suggest to you about the faith you can put in correlations from very small samples?