listMatch <- Match(Tr = (manu$Treatment=="LRFA"),X = log(manu$pPNT /manu$pLRFA),M= 1,caliper = 0.2,replace = FALSE, )
manuMatched <- manu[unlist(listMatch[c("index.treated","index.control")]), ]
tabMatched <- CreateTableOne(vars = var, strata = "Treatment", data = manuMatched, test = T)
print(tabMatched, smd = TRUE)
我按照其他人的代码得到了上图,但是要怎么显示两组中配对成功的对子序号啊?