用Matching包做PSM如何输出最后的带有对子序号匹配文件？

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)

我按照其他人的代码得到了上图，但是要怎么显示两组中配对成功的对子序号啊？