data(ex_dta)
dta_ps <- psrwe_est(ex_dta,
v_covs = paste("V", 1:7, sep = ""),
v_grp = "Group",
cur_grp_level = "current")
ps_borrow <- psrwe_borrow(total_borrow = 20, dta_ps)
ps_borrow
## Use different similarity metric
ps_borrow_omkss <- psrwe_borrow(total_borrow = 20, dta_ps,
metric = "omkss")
ps_borrow_omkss
Run the code above in your browser using DataLab