Research Methods Final Project - Spring 2019

final_project.R

## Read in the GSS Data 
gss <- read_csv("https://raw.githubusercontent.com/ryanburge/pls2003_sp17/master/gsssmall.csv")
## https://gssdataexplorer.norc.org/

1. How would you describe support for abortion in the four scenarios in the GSS? Does suport vary based on party identification? Race? D
What is the relationship between church attendance and support for abortion? 

## Read in the Baseball Data
bball <- read_csv("https://raw.githubusercontent.com/ryanburge/pls2003_sp17/master/bball.csv")
bball <- bball %>% 
  rename(games = g, wins =w, losses = l, runs =r, atbats = ab, hits =h, homeruns =hr, walks = bb, strikeout = so, stolenbase = sb, earnedruns = era)

2. Suppose that you work for a major league baseball team as a league analyst. The owner of the team wants to increase attendance at the baseball stadium. 
Do some exploratory data analysis to try and determine three factors will sell more tickets. Give a compelling argument, using visualization and written text. 

## Read in house sale data for Seattle, Washington
house <- read_csv("https://raw.githubusercontent.com/ryanburge/pls2003_sp17/master/house.csv")

3. My brother owns a house in Seattle, Washington. Here are the specs: 4 bedrooms, 2 bathrooms. The house was built in 1987 and has 1800 sq feet of living space.
Tell me how much his house should sell for given those specs. Show all your work on how you arrived at your answer.