## Get Data for comparison
data("card")
north <- card[card$south==0,]
white <- card[card$black==0,]
## use the function to plot the data
multi_data1 <- sampcompR::multi_compare(df = north,
bench = card,
independent = c("age","fatheduc","motheduc","IQ"),
dependent = c("educ"),
family = "ols")
multi_data2 <- sampcompR::multi_compare(df = white,
bench = card,
independent = c("age","fatheduc","motheduc","IQ"),
dependent = c("wage"),
family = "ols")
### merge two objects ###
merged_object<-multi_compare_merge(multi_data1,multi_data2)
### Plot the merged object ###
plot_multi_compare("merged_object")
Run the code above in your browser using DataLab