# Clear workspace
rm(list = ls()) 

# your code will NOT be included in the html for this assignment
knitr::opts_chunk$set(echo=FALSE) 
# your output will NOT be included in the html for this assignment (except figures at the end)
knitr::opts_chunk$set(include=FALSE) 

# load packages we need for this lab
library(mosaic, warn.conflicts = FALSE) 
library(ggformula, warn.conflicts = FALSE)
library(Lock5Data, warn.conflicts = FALSE)
library(dplyr, warn.conflicts = FALSE)


# Load your data
CrimeDataRaw <- read.csv(file.choose())

# Perform any necessary transformations

Introduction

Introduce the dataset in your own words. Discuss, briefly, the motivation and curiousity behind your choice of research questions. *
# Research Question 1

Write the research question in the section title and clearly detail any data manipulations you performed to be able to answer this research question. Do not include R code; use complete sentences to describe what you did.

Research Question 2

Write the research question in the section title and clearly detail any data manipulations you performed to be able to answer this research question. Do not include R code; use complete sentences to describe what you did.

Figures


Appendix

Put your R code to perform the hypothesis tests here. It must appear in your report with the output

LS0tDQp0aXRsZTogIkdyb3VwIFByb2plY3QiDQpvdXRwdXQ6DQogIGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCiMgQ2xlYXIgd29ya3NwYWNlDQpybShsaXN0ID0gbHMoKSkgDQoNCiMgeW91ciBjb2RlIHdpbGwgTk9UIGJlIGluY2x1ZGVkIGluIHRoZSBodG1sIGZvciB0aGlzIGFzc2lnbm1lbnQNCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvPUZBTFNFKSANCiMgeW91ciBvdXRwdXQgd2lsbCBOT1QgYmUgaW5jbHVkZWQgaW4gdGhlIGh0bWwgZm9yIHRoaXMgYXNzaWdubWVudCAoZXhjZXB0IGZpZ3VyZXMgYXQgdGhlIGVuZCkNCmtuaXRyOjpvcHRzX2NodW5rJHNldChpbmNsdWRlPUZBTFNFKSANCg0KIyBsb2FkIHBhY2thZ2VzIHdlIG5lZWQgZm9yIHRoaXMgbGFiDQpsaWJyYXJ5KG1vc2FpYywgd2Fybi5jb25mbGljdHMgPSBGQUxTRSkgDQpsaWJyYXJ5KGdnZm9ybXVsYSwgd2Fybi5jb25mbGljdHMgPSBGQUxTRSkNCmxpYnJhcnkoTG9jazVEYXRhLCB3YXJuLmNvbmZsaWN0cyA9IEZBTFNFKQ0KbGlicmFyeShkcGx5ciwgd2Fybi5jb25mbGljdHMgPSBGQUxTRSkNCg0KDQojIExvYWQgeW91ciBkYXRhDQpDcmltZURhdGFSYXcgPC0gcmVhZC5jc3YoZmlsZS5jaG9vc2UoKSkNCg0KIyBQZXJmb3JtIGFueSBuZWNlc3NhcnkgdHJhbnNmb3JtYXRpb25zDQoNCg0KYGBgDQoNCg0KIyMgSW50cm9kdWN0aW9uDQoNCipJbnRyb2R1Y2UgdGhlIGRhdGFzZXQgaW4geW91ciBvd24gd29yZHMuICBEaXNjdXNzLCBicmllZmx5LCB0aGUgbW90aXZhdGlvbiBhbmQgY3VyaW91c2l0eSBiZWhpbmQgeW91ciBjaG9pY2Ugb2YgcmVzZWFyY2ggcXVlc3Rpb25zLiAgKiAgDQogLS0tIA0KIyMgUmVzZWFyY2ggUXVlc3Rpb24gMQ0KDQoqV3JpdGUgdGhlIHJlc2VhcmNoIHF1ZXN0aW9uIGluIHRoZSBzZWN0aW9uIHRpdGxlIGFuZCBjbGVhcmx5IGRldGFpbCBhbnkgZGF0YSBtYW5pcHVsYXRpb25zIHlvdSBwZXJmb3JtZWQgdG8gYmUgYWJsZSB0byBhbnN3ZXIgdGhpcyByZXNlYXJjaCBxdWVzdGlvbi4gRG8gbm90IGluY2x1ZGUgUiBjb2RlOyB1c2UgY29tcGxldGUgc2VudGVuY2VzIHRvIGRlc2NyaWJlIHdoYXQgeW91IGRpZC4gKiANCiAgDQogICAtICpXcml0ZSB0aGUgcmVsZXZhbnQgaHlwb3RoZXNpcyB0ZXN0IGFuZCBjbGVhcmx5IGRlZmluZSB0aGUgcGFyYW1ldGVyIG9mIGludGVyZXN0IGluIHRoZSBjb250ZXh0IG9mIHlvdXIgcmVzZWFyY2ggcXVlc3Rpb24uKiANCiAgIC0gKkRpc2N1c3Mgd2hhdCBraW5kIG9mIGRhdGEgdmlzdWFsaXphdGlvbiB5b3UgY3JlYXRlZCBmb3IgdGhpcyBxdWVzdGlvbiwgYW5kIHdoYXQgeW91IGxlYXJuZWQgZnJvbSBpdCBhcyBpdCByZWxhdGVzIHRvIHRoZSByZXNlYXJjaCBxdWVzdGlvbi4gIFlvdSB3aWxsIHB1dCB0aGlzIHZpc3VhbGl6YXRpb24gYXQgdGhlIGVuZCBvZiB0aGUgZG9jdW1lbnQuKg0KICAtICpJbnRyb2R1Y2UgdGhlIGluZmVyZW5jZSBwcm9jZWR1cmUgYW5kIHJlcG9ydCB0aGUgcC12YWx1ZSwgYXMgd2VsbCBhcyB5b3VyIGNvbmNsdXNpb24gaW4gY29udGV4dC4gIE1ha2Ugc3VyZSB5b3UgZGlzY3VzcyB0aGUgc3RyZW5ndGggb2YgdGhlIGV2aWRlbmNlLioNCiAgDQojIyBSZXNlYXJjaCBRdWVzdGlvbiAyDQoNCipXcml0ZSB0aGUgcmVzZWFyY2ggcXVlc3Rpb24gaW4gdGhlIHNlY3Rpb24gdGl0bGUgYW5kIGNsZWFybHkgZGV0YWlsIGFueSBkYXRhIG1hbmlwdWxhdGlvbnMgeW91IHBlcmZvcm1lZCB0byBiZSBhYmxlIHRvIGFuc3dlciB0aGlzIHJlc2VhcmNoIHF1ZXN0aW9uLiBEbyBub3QgaW5jbHVkZSBSIGNvZGU7IHVzZSBjb21wbGV0ZSBzZW50ZW5jZXMgdG8gZGVzY3JpYmUgd2hhdCB5b3UgZGlkLiAqIA0KICANCiAgIC0gKldyaXRlIHRoZSByZWxldmFudCBoeXBvdGhlc2lzIHRlc3QgYW5kIGNsZWFybHkgZGVmaW5lIHRoZSBwYXJhbWV0ZXIgb2YgaW50ZXJlc3QgaW4gdGhlIGNvbnRleHQgb2YgeW91ciByZXNlYXJjaCBxdWVzdGlvbi4qIA0KICAgLSAqRGlzY3VzcyB3aGF0IGtpbmQgb2YgZGF0YSB2aXN1YWxpemF0aW9uIHlvdSBjcmVhdGVkIGZvciB0aGlzIHF1ZXN0aW9uLCBhbmQgd2hhdCB5b3UgbGVhcm5lZCBmcm9tIGl0IGFzIGl0IHJlbGF0ZXMgdG8gdGhlIHJlc2VhcmNoIHF1ZXN0aW9uLiAgWW91IHdpbGwgcHV0IHRoaXMgdmlzdWFsaXphdGlvbiBhdCB0aGUgZW5kIG9mIHRoZSBkb2N1bWVudC4qDQogIC0gKkludHJvZHVjZSB0aGUgaW5mZXJlbmNlIHByb2NlZHVyZSBhbmQgcmVwb3J0IHRoZSBwLXZhbHVlLCBhcyB3ZWxsIGFzIHlvdXIgY29uY2x1c2lvbiBpbiBjb250ZXh0LiAgTWFrZSBzdXJlIHlvdSBkaXNjdXNzIHRoZSBzdHJlbmd0aCBvZiB0aGUgZXZpZGVuY2UuKg0KICANClxuZXdwYWdlDQoNCiMjIEZpZ3VyZXMNCg0KYGBge3IsIGluY2x1ZGUgPSBUfQ0KDQpgYGANCg0KYGBge3IsIGluY2x1ZGUgPSBUfQ0KDQpgYGANCi0tLQ0KDQojIEFwcGVuZGl4DQoNCipQdXQgeW91ciBSIGNvZGUgdG8gcGVyZm9ybSB0aGUgaHlwb3RoZXNpcyB0ZXN0cyBoZXJlLiAgSXQgbXVzdCBhcHBlYXIgaW4geW91ciByZXBvcnQgd2l0aCB0aGUgb3V0cHV0Kg0KDQpgYGB7ciwgaW5jbHVkZSA9IFQsIGVjaG8gPSBUfQ0KDQoNCg0KYGBgDQoNCmBgYHtyLCBpbmNsdWRlID0gVCwgZWNobyA9IFR9DQoNCmBgYA0KDQoNCg0KDQo=