augsynth可能是你最好的选择！
这里有一个例子，它适合供体，并且具有负权重，从vignette开始。

library(magrittr)
library(dplyr)
library(augsynth)
data(kansas)
kansas %>% 
  select(year, qtr, year_qtr, state, treated, gdp, lngdpcapita) %>% 
  filter(state == "Kansas" & year_qtr >= 2012 & year_qtr < 2013)
syn <- augsynth(lngdpcapita ~ treated, fips, year_qtr, kansas,
                progfunc = "Ridge", scm = T)
print(syn$weights)

字符串
在输出中，您将看到一些权重为负：

> print(syn$weights)
            [,1]
1  -0.0017595899
2   0.0710153931
4  -0.0002083812

型
我不是augsynth的作者或贡献者。