For this homework, we are going to go back to work with our beloved Rice Rivers Center data. You have your data formatting function that you created to grab it from the server.

rice <- getRiceData()
Parsed with column specification:
cols(
  .default = col_double(),
  DateTime = col_character()
)
See spec(...) for full column specifications.

Questions

  1. Pull out the data related to atmospheric parameters (e.g., those not measuring something in the water). Create a plot of their pairwise relationship.

  2. For those atmospheric data, what which pair of variables have the strongest correlation? What is the 95% confidence interval on that correlation coefficient?

  3. Using the first 40 observations in air temperature and barometric pressure from the Rice Center data set, determine if they are individually distributed as a normal random variable.

  4. Given your findings in the last question, what kind of correlation statistic would be most appropriate for estimating the correlation between this subset of data?

  5. Look at a qqnorm() plot of the barometric pressure data you used in the previous example. Is there something that ‘looks’ odd with these data? Explain, why those data are the way they are.

  6. Using a permutation approach, define the distribution of correlation values between the variables in #3 assuming that the NULL hypothesis is actually true. Plot these as a histogram and include the observed correlation.

LS0tCnRpdGxlOiAiQ29ycmVsYXRpb24gSG9tZXdvcmsiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCjxjZW50ZXI+IVtdKGh0dHBzOi8vbGl2ZS5zdGF0aWNmbGlja3IuY29tLzY1NTM1LzUwNTgzNTk3NjgyXzUyMTMwZmIwNDBfY19kLmpwZyk8L2NlbnRlcj4KCkZvciB0aGlzIGhvbWV3b3JrLCB3ZSBhcmUgZ29pbmcgdG8gZ28gYmFjayB0byB3b3JrIHdpdGggb3VyIGJlbG92ZWQgUmljZSBSaXZlcnMgQ2VudGVyIGRhdGEuICBZb3UgaGF2ZSB5b3VyIGRhdGEgZm9ybWF0dGluZyBmdW5jdGlvbiB0aGF0IHlvdSBjcmVhdGVkIHRvIGdyYWIgaXQgZnJvbSB0aGUgc2VydmVyLgoKCmBgYHtyfQpzb3VyY2UoImdldFJpY2VEYXRhLlIiKQpyaWNlIDwtIGdldFJpY2VEYXRhKCkKc3VtbWFyeSggcmljZSApCmBgYAoKCgoKIyMgUXVlc3Rpb25zCgoxLiBQdWxsIG91dCB0aGUgZGF0YSByZWxhdGVkIHRvIGF0bW9zcGhlcmljIHBhcmFtZXRlcnMgKGUuZy4sIHRob3NlIG5vdCBtZWFzdXJpbmcgc29tZXRoaW5nIGluIHRoZSB3YXRlcikuICBDcmVhdGUgYSBwbG90IG9mIHRoZWlyIHBhaXJ3aXNlIHJlbGF0aW9uc2hpcC4KCgoyLiBGb3IgdGhvc2UgYXRtb3NwaGVyaWMgZGF0YSwgd2hhdCB3aGljaCBwYWlyIG9mIHZhcmlhYmxlcyBoYXZlIHRoZSBzdHJvbmdlc3QgY29ycmVsYXRpb24/ICBXaGF0IGlzIHRoZSA5NSUgY29uZmlkZW5jZSBpbnRlcnZhbCBvbiB0aGF0IGNvcnJlbGF0aW9uIGNvZWZmaWNpZW50PwoKCjMuIFVzaW5nIHRoZSBmaXJzdCA0MCBvYnNlcnZhdGlvbnMgaW4gYWlyIHRlbXBlcmF0dXJlIGFuZCBiYXJvbWV0cmljIHByZXNzdXJlIGZyb20gdGhlIFJpY2UgQ2VudGVyIGRhdGEgc2V0LCBkZXRlcm1pbmUgaWYgdGhleSBhcmUgaW5kaXZpZHVhbGx5IGRpc3RyaWJ1dGVkIGFzIGEgbm9ybWFsIHJhbmRvbSB2YXJpYWJsZS4KCgo0LiBHaXZlbiB5b3VyIGZpbmRpbmdzIGluIHRoZSBsYXN0IHF1ZXN0aW9uLCB3aGF0IGtpbmQgb2YgY29ycmVsYXRpb24gc3RhdGlzdGljIHdvdWxkIGJlIG1vc3QgYXBwcm9wcmlhdGUgZm9yIGVzdGltYXRpbmcgdGhlIGNvcnJlbGF0aW9uIGJldHdlZW4gdGhpcyBzdWJzZXQgb2YgZGF0YT8KCgo1LiBMb29rIGF0IGEgYHFxbm9ybSgpYCBwbG90IG9mIHRoZSBiYXJvbWV0cmljIHByZXNzdXJlIGRhdGEgeW91IHVzZWQgaW4gdGhlIHByZXZpb3VzIGV4YW1wbGUuICBJcyB0aGVyZSBzb21ldGhpbmcgdGhhdCAnbG9va3MnIG9kZCB3aXRoIHRoZXNlIGRhdGE/ICBFeHBsYWluLCB3aHkgdGhvc2UgZGF0YSBhcmUgdGhlIHdheSB0aGV5IGFyZS4KCgo2LiBVc2luZyBhIHBlcm11dGF0aW9uIGFwcHJvYWNoLCBkZWZpbmUgdGhlIGRpc3RyaWJ1dGlvbiBvZiBjb3JyZWxhdGlvbiB2YWx1ZXMgYmV0d2VlbiB0aGUgdmFyaWFibGVzIGluICMzIGFzc3VtaW5nIHRoYXQgdGhlIE5VTEwgaHlwb3RoZXNpcyBpcyBhY3R1YWxseSB0cnVlLiAgUGxvdCB0aGVzZSBhcyBhIGhpc3RvZ3JhbSBhbmQgaW5jbHVkZSB0aGUgb2JzZXJ2ZWQgY29ycmVsYXRpb24uCg==