jakeesse

setwd('/users/JakeEsse/Desktop/HIST 90')

library(readr)
library(dplyr)
library(ggplot2)
library(scales)
library(grid)

family_master_data <- read_csv('usa_00012.csv')

jakeesse

setwd('/users/JakeEsse/Desktop/HIST 90')

library(readr)
library(dplyr)
library(ggplot2)
library(scales)
library(grid)

work_master_data <- read_csv('usa_00009.csv')

jakeesse

setwd('/users/JakeEsse/Desktop/HIST 90')

library(readr)
library(dplyr)
library(ggplot2)
library(scales)
library(grid)

immigration_master_data <- read_csv('usa_00007.csv')

jakeesse

master_data = read.csv('usa_00005.csv')
library(readr)
library(dplyr)
library(ggplot2)
library(scales)
library(grid)

a <- filter(master_data, SEX<2)
usa_men <- a
e <- select(usa_men, YEAR, AGE, PERWT)