Before opening the dataset needed for this problem, you’ll need to call the “car”
package. Run the following line of code: > library(car)

• Now you can import the “Cowles” dataset and use it to answer the question below.
Name the data frame with your UT EID:
> my_eid <- Cowles

3. Cowles and Davis (1987) collected data on the personality traits of individuals who and did not volunteer for psychological research. The researchers used Eysenck’s personality inventory to measure each participant’s neuroticism and extraversion score (on a scale of 0-24, with higher scores indicating more neurotic/extraverted). You are interested in seeing if there are differences in rates of volunteering between individuals who scored less than 12 (introverts) on the extraversion scale compared to those who scored at least 12. `

a. Create a new variable in the dataset called introvert that indicates whether or not a person scored less than 12 on the extraversion scale.

b. Assuming this sample is random with independent observations, carry out the appropriate test to determine if volunteering is related to introvert status. Include all steps for full credit.  

c. Calculate a measure of effect size to go along with this analysis and interpret it in context.