如何使用自举和加权数据？

Question

我有两个变量，我想用2x2表分析，这很容易。

datatable=table(data$Q1data1, data$Q1data2) summary(datatable)

但是，我需要使用我拥有的两个频率加权变量分别对每个变量进行加权。到目前为止，我只在wtd.chi.sq包中找到了weights函数，它只允许您通过相同的加权变量对两个变量进行加权。

此外，我需要使用自举或一些重采样方法执行此次2x2卡方1000次，这样我最终可以查看p值的分布。