Mind map Goal impute missing data fit regression library(tidyverse) library(AER) library(naniar) library(mice) Steps Step 01. missing data wages_data <- read_csv("/Users/zero/myrepo/jixingBlogdown/data/Mroz.csv") wages_data <- wages_data %>% select(wage, educ, fatheduc, motheduc, inlf, hours, kidslt6, kidsge6, age, huswage, mtr, unem, city, exper) %>% mutate_at(vars(kidslt6, kidsge6, hours, educ, age, wage, huswage, mtr, motheduc, fatheduc, unem, exper), as.numeric) %>% mutate_at(vars(city, inlf), as.character) wages_data <- wages_data %>% mutate(wage = ifelse(is.na(wage), 0, wage)) vis_miss(wages_data) wages_mis <- ampute(wages_data)$amp vis_miss(wages_mis) Step 02.
