## Get Data for comparison
data("card")
north <- card[card$south==0,]
white <- card[card$black==0,]
## use the function to plot the data
bivar_data<-sampcompR::biv_compare(dfs = c("north","white"),
benchmarks = c("card","card"),
variables= c("age","educ","fatheduc","motheduc","wage","IQ"),
data=TRUE)
table<-sampcompR::biv_compare_table(bivar_data, type="diff", comparison_number=1)
noquote(table)
Run the code above in your browser using DataLab