#install packages
install.packages("openintro")
install.packages("tidyverse")
#call libraries
library(openintro)
library(tidyverse)

The Data

GPA dataset details
?gpa
GPA_IQ dataset details
?gpa_iq

What is the relationship between GPA and IQ?

#CREATE a visualization to compare gpa and iq. DESCRIBE what you see

What is the relationship between GPA and Study Hours?

#CREATE a visualization to compare gpa and iq. DESCRIBE what you see

Based on the visualizations above, which variable influences GPA to a greater degree: IQ or Study Hours? Explain.

Mutating the dataset.

#So that gpa and IQ can be compared on similar scales, mutate the dataset gpa_iq so that the gpa is out of 100 points rather than 10. Call the new data set GPA100 and the new variable you create gpa_100)

Subsetting the data.

hint: subset function newdata <- subset(data, variable == ” “)

# using subset function
female <- subset(gpa, gender == "female")
# using subset function to create a male dataset with gpa data
Gender analysis

Now that you have a gpa dataset for females and one for males, write a question to compare the 2 genders, then create visualizations and describe what you see. Be sure that you visualization and analysis answer the question that you posed.

YOUR Question HERE

LS0tCnRpdGxlOiAiTGFiIDEgUXVpeiBHUEEgQW5hbHlzaXMiCmF1dGhvcjogIkZpcnN0IGFuZCBMYXN0IE5hbWUiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyfQojaW5zdGFsbCBwYWNrYWdlcwppbnN0YWxsLnBhY2thZ2VzKCJvcGVuaW50cm8iKQppbnN0YWxsLnBhY2thZ2VzKCJ0aWR5dmVyc2UiKQpgYGAKCmBgYHtyfQojY2FsbCBsaWJyYXJpZXMKbGlicmFyeShvcGVuaW50cm8pCmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCiMjIyMgVGhlIERhdGEKCiMjIyMjIEdQQSBkYXRhc2V0IGRldGFpbHMKCmBgYHtyfQojZGF0YSBzZXQgZ3BhIGluZm8uIFN1bW1hcml6ZSB0aGUgZGltZW5zaW9ucyBhbmQgY29udGVudHMgb2YgdGhlIGRhdGEgc2V0Cj9ncGEKYGBgCgojIyMjIyBHUEFfSVEgZGF0YXNldCBkZXRhaWxzCgpgYGB7cn0KI2RhdGEgc2V0IGdwYV9pcSBpbmZvLiBTdW1tYXJpemUgdGhlIGRpbWVuc2lvbnMgYW5kIGNvbnRlbnRzIG9mIHRoZSBkYXRhIHNldAo/Z3BhX2lxCmBgYAoKIyMjIyBXaGF0IGlzIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiBHUEEgYW5kIElRPwoKYGBge3J9CiNDUkVBVEUgYSB2aXN1YWxpemF0aW9uIHRvIGNvbXBhcmUgZ3BhIGFuZCBpcS4gREVTQ1JJQkUgd2hhdCB5b3Ugc2VlCmBgYAoKIyMjIyBXaGF0IGlzIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiBHUEEgYW5kIFN0dWR5IEhvdXJzPwoKYGBge3J9CiNDUkVBVEUgYSB2aXN1YWxpemF0aW9uIHRvIGNvbXBhcmUgZ3BhIGFuZCBpcS4gREVTQ1JJQkUgd2hhdCB5b3Ugc2VlCmBgYAoKIyMjIyBCYXNlZCBvbiB0aGUgdmlzdWFsaXphdGlvbnMgYWJvdmUsIHdoaWNoIHZhcmlhYmxlIGluZmx1ZW5jZXMgR1BBIHRvIGEgZ3JlYXRlciBkZWdyZWU6IElRIG9yIFN0dWR5IEhvdXJzPyBFeHBsYWluLgoKIyMjIyBNdXRhdGluZyB0aGUgZGF0YXNldC4gCgpgYGB7cn0KI1NvIHRoYXQgZ3BhIGFuZCBJUSBjYW4gYmUgY29tcGFyZWQgb24gc2ltaWxhciBzY2FsZXMsIG11dGF0ZSB0aGUgZGF0YXNldCBncGFfaXEgc28gdGhhdCB0aGUgZ3BhIGlzIG91dCBvZiAxMDAgcG9pbnRzIHJhdGhlciB0aGFuIDEwLiBDYWxsIHRoZSBuZXcgZGF0YSBzZXQgR1BBMTAwIGFuZCB0aGUgbmV3IHZhcmlhYmxlIHlvdSBjcmVhdGUgZ3BhXzEwMCkKCmBgYAoKIyMjIyBTdWJzZXR0aW5nIHRoZSBkYXRhLgoKaGludDogc3Vic2V0IGZ1bmN0aW9uCm5ld2RhdGEgPC0gc3Vic2V0KGRhdGEsIHZhcmlhYmxlID09ICIgIikKCgpgYGB7cn0KIyB1c2luZyBzdWJzZXQgZnVuY3Rpb24gdG8gY3JlYXRlIGEgZmVtYWxlIGRhdGFzZXQgd2l0aCBncGEgZGF0YQoKYGBgCgpgYGB7cn0KIyB1c2luZyBzdWJzZXQgZnVuY3Rpb24gdG8gY3JlYXRlIGEgbWFsZSBkYXRhc2V0IHdpdGggZ3BhIGRhdGEKYGBgCgojIyMjIyBHZW5kZXIgYW5hbHlzaXMKCk5vdyB0aGF0IHlvdSBoYXZlIGEgZ3BhIGRhdGFzZXQgZm9yIGZlbWFsZXMgYW5kIG9uZSBmb3IgbWFsZXMsIHdyaXRlIGEgcXVlc3Rpb24gdG8gY29tcGFyZSB0aGUgMiBnZW5kZXJzLCB0aGVuIGNyZWF0ZSB2aXN1YWxpemF0aW9ucyBhbmQgZGVzY3JpYmUgd2hhdCB5b3Ugc2VlLiBCZSBzdXJlIHRoYXQgeW91IHZpc3VhbGl6YXRpb24gYW5kIGFuYWx5c2lzIGFuc3dlciB0aGUgcXVlc3Rpb24gdGhhdCB5b3UgcG9zZWQuIAoKIyMjIyBZT1VSIFF1ZXN0aW9uIEhFUkUK