.Rhistory

install.packages("instalr")
install.packages("installr")
install.packages(installr)
install.packages("installr")
install.packages("installr")
install.packages(c("dplyr", "car"))
data -> read.csv("Data and Documentation/ss14pco.csv", stringsAsFactors=FALSE)
data -> read.csv("Data and Documentation/ss14pco.csv", stringsAsFactors = FALSE)
data <- read.csv("Data and Documentation/ss14pco.csv", stringsAsFactors = FALSE)
table(data$povpip)
table(data$POVPIP)
data <- data%>% # passes the data object we created above to the next function
mutate(poverty_new=recode(POVPIP, "000:124=1; 125:183=2; 183:501=3"))
library(car)
library(dplyr)
data <- data%>% # passes the data object we created above to the next function
mutate(poverty_new=recode(POVPIP, "000:124=1; 125:183=2; 183:501=3"))
poverty <- data%>%
group_by(poverty_new)%>%
summarize(total=sum(PWGTP))
View(poverty)
poverty