## Get Data for comparison
data("card")
north <- card[card$south==0,]
white <- card[card$black==0,]
variables<- c("age","educ","fatheduc","motheduc","wage","IQ")
varlabels<-c("Age","Education","Father's Education",
"Mother's Education","Wage","IQ")
missing_tab<-sampcompR::missing_table(dfs = c("north","white"),
variables=variables,
df_names = c("North","White"),
varlabels=varlabels)
missing_tab
Run the code above in your browser using DataLab