Here is the homework for the content we covered using raster and point data to date.

The Raw Data

For this homework we will continue to work with the data from Baja California on the Sonoran Desert bark beetle, Araptus attenuatus.

Here are the coordinates and other data for the sample sites in Baja California.

beetle_url <- \https://raw.githubusercontent.com/dyerlab/ENVS-Lectures/master/data/Araptus_Disperal_Bias.csv\

And here are links to the rasters, They are individually hosted on Github.

precip_total_url <- \https://github.com/dyerlab/ENVS-Lectures/raw/master/data/Annual_Precip_22.tif\
minimum_precip_url <- \https://github.com/dyerlab/ENVS-Lectures/raw/master/data/Minimum_Precip_22.tif\
maximum_precip_url <- \https://github.com/dyerlab/ENVS-Lectures/raw/master/data/Maximum_Precip.tif\

minimum_temp_url <- \https://github.com/dyerlab/ENVS-Lectures/raw/master/data/Minimum_Temp_22.tif\
mean_temp_url <- \https://github.com/dyerlab/ENVS-Lectures/raw/master/data/Mean_Temp_22.tif\
maximum_temp_url <- \https://github.com/dyerlab/ENVS-Lectures/raw/master/data/Maximum_Temp_22.tif\

elevation_url <- \https://github.com/dyerlab/ENVS-Lectures/raw/master/data/alt_22.tif\

Questions

  1. Create a function that takes the raw beetle data set and loads in the rasters above and crops them to the appropriate extent (like the one in lecture but more inclusive). It should have the signature of:
load_and_crop <- function( data, list_of_urls ) {
  # stuff here.
}
  1. Create a plot of all populations in the data set with the size of the plot symbol representing the sex ratio and the fill color representing the habitat suitability.

  2. The sites in the Cape Region (that bottom part of the peninsula) are of particular interest. Contrast these sites by creating plots for all the environmental features sampled at each study site in these “Cape” populations and compare them to the same set of environmental features (e.g., the values extracted from the rasters) sampled from the remaining “Peninsular” populations. Contrast by feature using a bar or violin plot.

  3. Crop all the rasters to show only the peninsular sites between 27° and 28° North Latitude. Make a table of the minimum, mean, and maximum for temperature and precipitation at all sites in this latitudinal band.

  4. Of all the environmental features represented on those rasters, as well as the data already contained within the beetles data set, which set of predictor variables best describe the observed sex ratios? Use a statistical approach to answering this quesion and provide your response verbially with support from graphical and/or tablular output.

LS0tCnRpdGxlOiAiUmFzdGVyICsgUG9pbnQgRGF0YSBIb21ld29yayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKSGVyZSBpcyB0aGUgaG9tZXdvcmsgZm9yIHRoZSBjb250ZW50IHdlIGNvdmVyZWQgdXNpbmcgcmFzdGVyIGFuZCBwb2ludCBkYXRhIHRvIGRhdGUuCgojIyBUaGUgUmF3IERhdGEKCkZvciB0aGlzIGhvbWV3b3JrIHdlIHdpbGwgY29udGludWUgdG8gd29yayB3aXRoIHRoZSBkYXRhIGZyb20gQmFqYSBDYWxpZm9ybmlhIG9uIHRoZSBTb25vcmFuIERlc2VydCBiYXJrIGJlZXRsZSwgKkFyYXB0dXMgYXR0ZW51YXR1cyouICAKCkhlcmUgYXJlIHRoZSBjb29yZGluYXRlcyBhbmQgb3RoZXIgZGF0YSBmb3IgdGhlIHNhbXBsZSBzaXRlcyBpbiBCYWphIENhbGlmb3JuaWEuCgpgYGB7cn0KYmVldGxlX3VybCA8LSAiaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL2R5ZXJsYWIvRU5WUy1MZWN0dXJlcy9tYXN0ZXIvZGF0YS9BcmFwdHVzX0Rpc3BlcmFsX0JpYXMuY3N2IgpgYGAKCkFuZCBoZXJlIGFyZSBsaW5rcyB0byB0aGUgcmFzdGVycywgVGhleSBhcmUgaW5kaXZpZHVhbGx5IGhvc3RlZCBvbiBHaXRodWIuCgpgYGB7cn0KcHJlY2lwX3RvdGFsX3VybCA8LSAiaHR0cHM6Ly9naXRodWIuY29tL2R5ZXJsYWIvRU5WUy1MZWN0dXJlcy9yYXcvbWFzdGVyL2RhdGEvQW5udWFsX1ByZWNpcF8yMi50aWYiCm1pbmltdW1fcHJlY2lwX3VybCA8LSAiaHR0cHM6Ly9naXRodWIuY29tL2R5ZXJsYWIvRU5WUy1MZWN0dXJlcy9yYXcvbWFzdGVyL2RhdGEvTWluaW11bV9QcmVjaXBfMjIudGlmIgptYXhpbXVtX3ByZWNpcF91cmwgPC0gImh0dHBzOi8vZ2l0aHViLmNvbS9keWVybGFiL0VOVlMtTGVjdHVyZXMvcmF3L21hc3Rlci9kYXRhL01heGltdW1fUHJlY2lwLnRpZiIKbWluaW11bV90ZW1wX3VybCA8LSAiaHR0cHM6Ly9naXRodWIuY29tL2R5ZXJsYWIvRU5WUy1MZWN0dXJlcy9yYXcvbWFzdGVyL2RhdGEvTWluaW11bV9UZW1wXzIyLnRpZiIKbWVhbl90ZW1wX3VybCA8LSAiaHR0cHM6Ly9naXRodWIuY29tL2R5ZXJsYWIvRU5WUy1MZWN0dXJlcy9yYXcvbWFzdGVyL2RhdGEvTWVhbl9UZW1wXzIyLnRpZiIKbWF4aW11bV90ZW1wX3VybCA8LSAiaHR0cHM6Ly9naXRodWIuY29tL2R5ZXJsYWIvRU5WUy1MZWN0dXJlcy9yYXcvbWFzdGVyL2RhdGEvTWF4aW11bV9UZW1wXzIyLnRpZiIKZWxldmF0aW9uX3VybCA8LSAiaHR0cHM6Ly9naXRodWIuY29tL2R5ZXJsYWIvRU5WUy1MZWN0dXJlcy9yYXcvbWFzdGVyL2RhdGEvYWx0XzIyLnRpZiIKYGBgCgojIyBRdWVzdGlvbnMKCjEuIENyZWF0ZSBhIGZ1bmN0aW9uIHRoYXQgdGFrZXMgdGhlIHJhdyBiZWV0bGUgZGF0YSBzZXQgYW5kIGxvYWRzIGluIHRoZSByYXN0ZXJzIGFib3ZlIGFuZCBjcm9wcyB0aGVtIHRvIHRoZSBhcHByb3ByaWF0ZSBleHRlbnQgKGxpa2UgdGhlIG9uZSBpbiBsZWN0dXJlIGJ1dCBtb3JlIGluY2x1c2l2ZSkuICBJdCBzaG91bGQgaGF2ZSB0aGUgc2lnbmF0dXJlIG9mOgoKYGBge3J9CmxvYWRfYW5kX2Nyb3AgPC0gZnVuY3Rpb24oIGRhdGEsIGxpc3Rfb2ZfdXJscyApIHsKICAjIHN0dWZmIGhlcmUuCn0KYGBgCgoyLiBDcmVhdGUgYSBwbG90IG9mIGFsbCBwb3B1bGF0aW9ucyBpbiB0aGUgZGF0YSBzZXQgd2l0aCB0aGUgc2l6ZSBvZiB0aGUgcGxvdCBzeW1ib2wgcmVwcmVzZW50aW5nIHRoZSBzZXggcmF0aW8gYW5kIHRoZSBmaWxsIGNvbG9yIHJlcHJlc2VudGluZyB0aGUgaGFiaXRhdCBzdWl0YWJpbGl0eS4KCgozLiBUaGUgc2l0ZXMgaW4gdGhlIENhcGUgUmVnaW9uICh0aGF0IGJvdHRvbSBwYXJ0IG9mIHRoZSBwZW5pbnN1bGEpIGFyZSBvZiBwYXJ0aWN1bGFyIGludGVyZXN0LiAgQ29udHJhc3QgdGhlc2Ugc2l0ZXMgYnkgY3JlYXRpbmcgcGxvdHMgZm9yIGFsbCB0aGUgZW52aXJvbm1lbnRhbCBmZWF0dXJlcyBzYW1wbGVkIGF0IGVhY2ggc3R1ZHkgc2l0ZSBpbiB0aGVzZSAiQ2FwZSIgcG9wdWxhdGlvbnMgYW5kIGNvbXBhcmUgdGhlbSB0byB0aGUgc2FtZSBzZXQgb2YgZW52aXJvbm1lbnRhbCBmZWF0dXJlcyAoZS5nLiwgdGhlIHZhbHVlcyBleHRyYWN0ZWQgZnJvbSB0aGUgcmFzdGVycykgc2FtcGxlZCBmcm9tIHRoZSByZW1haW5pbmcgIlBlbmluc3VsYXIiIHBvcHVsYXRpb25zLiAgQ29udHJhc3QgYnkgZmVhdHVyZSB1c2luZyBhIGJhciBvciB2aW9saW4gcGxvdC4KCgo0LiBDcm9wIGFsbCB0aGUgcmFzdGVycyB0byBzaG93ICpvbmx5IHRoZSBwZW5pbnN1bGFyIHNpdGVzKiBiZXR3ZWVuIDI3wrAgYW5kIDI4wrAgTm9ydGggTGF0aXR1ZGUuICBNYWtlIGEgdGFibGUgb2YgdGhlIG1pbmltdW0sIG1lYW4sIGFuZCBtYXhpbXVtIGZvciB0ZW1wZXJhdHVyZSBhbmQgcHJlY2lwaXRhdGlvbiBhdCBhbGwgc2l0ZXMgaW4gdGhpcyBsYXRpdHVkaW5hbCBiYW5kLgoKCjUuIE9mIGFsbCB0aGUgZW52aXJvbm1lbnRhbCBmZWF0dXJlcyByZXByZXNlbnRlZCBvbiB0aG9zZSByYXN0ZXJzLCBhcyB3ZWxsIGFzIHRoZSBkYXRhIGFscmVhZHkgY29udGFpbmVkIHdpdGhpbiB0aGUgYGJlZXRsZXNgIGRhdGEgc2V0LCB3aGljaCBzZXQgb2YgcHJlZGljdG9yIHZhcmlhYmxlcyBiZXN0IGRlc2NyaWJlIHRoZSBvYnNlcnZlZCBzZXggcmF0aW9zPyAgVXNlIGEgc3RhdGlzdGljYWwgYXBwcm9hY2ggdG8gYW5zd2VyaW5nIHRoaXMgcXVlc2lvbiBhbmQgcHJvdmlkZSB5b3VyIHJlc3BvbnNlIHZlcmJpYWxseSB3aXRoIHN1cHBvcnQgZnJvbSBncmFwaGljYWwgYW5kL29yIHRhYmx1bGFyIG91dHB1dC4KCgoKCgo=