# 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
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.
- Write the relevant hypothesis test and clearly define the
parameter of interest in the context of your research
question.
- Discuss what kind of data visualization you created for this
question, and what you learned from it as it relates to the research
question. You will put this visualization at the end of the
document.
- Introduce the inference procedure and report the p-value, as
well as your conclusion in context. Make sure you discuss the strength
of the evidence.
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.
- Write the relevant hypothesis test and clearly define the
parameter of interest in the context of your research
question.
- Discuss what kind of data visualization you created for this
question, and what you learned from it as it relates to the research
question. You will put this visualization at the end of the
document.
- Introduce the inference procedure and report the p-value, as
well as your conclusion in context. Make sure you discuss the strength
of the evidence.
Figures
Appendix
Put your R code to perform the hypothesis tests here. It must
appear in your report with the output
LS0tDQp0aXRsZTogIkdyb3VwIFByb2plY3QiDQpvdXRwdXQ6DQogIGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCiMgQ2xlYXIgd29ya3NwYWNlDQpybShsaXN0ID0gbHMoKSkgDQoNCiMgeW91ciBjb2RlIHdpbGwgTk9UIGJlIGluY2x1ZGVkIGluIHRoZSBodG1sIGZvciB0aGlzIGFzc2lnbm1lbnQNCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvPUZBTFNFKSANCiMgeW91ciBvdXRwdXQgd2lsbCBOT1QgYmUgaW5jbHVkZWQgaW4gdGhlIGh0bWwgZm9yIHRoaXMgYXNzaWdubWVudCAoZXhjZXB0IGZpZ3VyZXMgYXQgdGhlIGVuZCkNCmtuaXRyOjpvcHRzX2NodW5rJHNldChpbmNsdWRlPUZBTFNFKSANCg0KIyBsb2FkIHBhY2thZ2VzIHdlIG5lZWQgZm9yIHRoaXMgbGFiDQpsaWJyYXJ5KG1vc2FpYywgd2Fybi5jb25mbGljdHMgPSBGQUxTRSkgDQpsaWJyYXJ5KGdnZm9ybXVsYSwgd2Fybi5jb25mbGljdHMgPSBGQUxTRSkNCmxpYnJhcnkoTG9jazVEYXRhLCB3YXJuLmNvbmZsaWN0cyA9IEZBTFNFKQ0KbGlicmFyeShkcGx5ciwgd2Fybi5jb25mbGljdHMgPSBGQUxTRSkNCg0KDQojIExvYWQgeW91ciBkYXRhDQpDcmltZURhdGFSYXcgPC0gcmVhZC5jc3YoZmlsZS5jaG9vc2UoKSkNCg0KIyBQZXJmb3JtIGFueSBuZWNlc3NhcnkgdHJhbnNmb3JtYXRpb25zDQoNCg0KYGBgDQoNCg0KIyMgSW50cm9kdWN0aW9uDQoNCipJbnRyb2R1Y2UgdGhlIGRhdGFzZXQgaW4geW91ciBvd24gd29yZHMuICBEaXNjdXNzLCBicmllZmx5LCB0aGUgbW90aXZhdGlvbiBhbmQgY3VyaW91c2l0eSBiZWhpbmQgeW91ciBjaG9pY2Ugb2YgcmVzZWFyY2ggcXVlc3Rpb25zLiAgKiAgDQogLS0tIA0KIyMgUmVzZWFyY2ggUXVlc3Rpb24gMQ0KDQoqV3JpdGUgdGhlIHJlc2VhcmNoIHF1ZXN0aW9uIGluIHRoZSBzZWN0aW9uIHRpdGxlIGFuZCBjbGVhcmx5IGRldGFpbCBhbnkgZGF0YSBtYW5pcHVsYXRpb25zIHlvdSBwZXJmb3JtZWQgdG8gYmUgYWJsZSB0byBhbnN3ZXIgdGhpcyByZXNlYXJjaCBxdWVzdGlvbi4gRG8gbm90IGluY2x1ZGUgUiBjb2RlOyB1c2UgY29tcGxldGUgc2VudGVuY2VzIHRvIGRlc2NyaWJlIHdoYXQgeW91IGRpZC4gKiANCiAgDQogICAtICpXcml0ZSB0aGUgcmVsZXZhbnQgaHlwb3RoZXNpcyB0ZXN0IGFuZCBjbGVhcmx5IGRlZmluZSB0aGUgcGFyYW1ldGVyIG9mIGludGVyZXN0IGluIHRoZSBjb250ZXh0IG9mIHlvdXIgcmVzZWFyY2ggcXVlc3Rpb24uKiANCiAgIC0gKkRpc2N1c3Mgd2hhdCBraW5kIG9mIGRhdGEgdmlzdWFsaXphdGlvbiB5b3UgY3JlYXRlZCBmb3IgdGhpcyBxdWVzdGlvbiwgYW5kIHdoYXQgeW91IGxlYXJuZWQgZnJvbSBpdCBhcyBpdCByZWxhdGVzIHRvIHRoZSByZXNlYXJjaCBxdWVzdGlvbi4gIFlvdSB3aWxsIHB1dCB0aGlzIHZpc3VhbGl6YXRpb24gYXQgdGhlIGVuZCBvZiB0aGUgZG9jdW1lbnQuKg0KICAtICpJbnRyb2R1Y2UgdGhlIGluZmVyZW5jZSBwcm9jZWR1cmUgYW5kIHJlcG9ydCB0aGUgcC12YWx1ZSwgYXMgd2VsbCBhcyB5b3VyIGNvbmNsdXNpb24gaW4gY29udGV4dC4gIE1ha2Ugc3VyZSB5b3UgZGlzY3VzcyB0aGUgc3RyZW5ndGggb2YgdGhlIGV2aWRlbmNlLioNCiAgDQojIyBSZXNlYXJjaCBRdWVzdGlvbiAyDQoNCipXcml0ZSB0aGUgcmVzZWFyY2ggcXVlc3Rpb24gaW4gdGhlIHNlY3Rpb24gdGl0bGUgYW5kIGNsZWFybHkgZGV0YWlsIGFueSBkYXRhIG1hbmlwdWxhdGlvbnMgeW91IHBlcmZvcm1lZCB0byBiZSBhYmxlIHRvIGFuc3dlciB0aGlzIHJlc2VhcmNoIHF1ZXN0aW9uLiBEbyBub3QgaW5jbHVkZSBSIGNvZGU7IHVzZSBjb21wbGV0ZSBzZW50ZW5jZXMgdG8gZGVzY3JpYmUgd2hhdCB5b3UgZGlkLiAqIA0KICANCiAgIC0gKldyaXRlIHRoZSByZWxldmFudCBoeXBvdGhlc2lzIHRlc3QgYW5kIGNsZWFybHkgZGVmaW5lIHRoZSBwYXJhbWV0ZXIgb2YgaW50ZXJlc3QgaW4gdGhlIGNvbnRleHQgb2YgeW91ciByZXNlYXJjaCBxdWVzdGlvbi4qIA0KICAgLSAqRGlzY3VzcyB3aGF0IGtpbmQgb2YgZGF0YSB2aXN1YWxpemF0aW9uIHlvdSBjcmVhdGVkIGZvciB0aGlzIHF1ZXN0aW9uLCBhbmQgd2hhdCB5b3UgbGVhcm5lZCBmcm9tIGl0IGFzIGl0IHJlbGF0ZXMgdG8gdGhlIHJlc2VhcmNoIHF1ZXN0aW9uLiAgWW91IHdpbGwgcHV0IHRoaXMgdmlzdWFsaXphdGlvbiBhdCB0aGUgZW5kIG9mIHRoZSBkb2N1bWVudC4qDQogIC0gKkludHJvZHVjZSB0aGUgaW5mZXJlbmNlIHByb2NlZHVyZSBhbmQgcmVwb3J0IHRoZSBwLXZhbHVlLCBhcyB3ZWxsIGFzIHlvdXIgY29uY2x1c2lvbiBpbiBjb250ZXh0LiAgTWFrZSBzdXJlIHlvdSBkaXNjdXNzIHRoZSBzdHJlbmd0aCBvZiB0aGUgZXZpZGVuY2UuKg0KICANClxuZXdwYWdlDQoNCiMjIEZpZ3VyZXMNCg0KYGBge3IsIGluY2x1ZGUgPSBUfQ0KDQpgYGANCg0KYGBge3IsIGluY2x1ZGUgPSBUfQ0KDQpgYGANCi0tLQ0KDQojIEFwcGVuZGl4DQoNCipQdXQgeW91ciBSIGNvZGUgdG8gcGVyZm9ybSB0aGUgaHlwb3RoZXNpcyB0ZXN0cyBoZXJlLiAgSXQgbXVzdCBhcHBlYXIgaW4geW91ciByZXBvcnQgd2l0aCB0aGUgb3V0cHV0Kg0KDQpgYGB7ciwgaW5jbHVkZSA9IFQsIGVjaG8gPSBUfQ0KDQoNCg0KYGBgDQoNCmBgYHtyLCBpbmNsdWRlID0gVCwgZWNobyA9IFR9DQoNCmBgYA0KDQoNCg0KDQo=