R expss包能否处理带有加权数据的多个答案问题？

expss包能否解决此链接中提出的问题？它是关于数据集中带有权重变量的多个响应问题

假设我们有以下数据集：

demo <- tribble(
~dummy1, ~dummy2, ~dummy3, ~survey_weight,
      1,       0,       0,          1.5,
      1,       1,       0,          1.5,
      1,       1,       1,           .5,
      0,       1,       1,          1.5,
      1,       1,       1,           .5,
      0,       0,       1,           .5,
)

demo是的，非常简单：

library(expss)
demo = text_to_columns("
    dummy1 dummy2 dummy3 survey_weight
    1        0        0           1.5
    1        1        0           1.5
    1        1        1            .5
    0        1        1           1.5
    1        1        1            .5
    0        0        1            .5
")


demo %>% 
    tab_cells(mdset(dummy1 %to% dummy3)) %>%  # 'mdset' designate that with have multiple dichotomy set
    tab_weight(survey_weight) %>% # weight
    tab_stat_cpct() %>% # statistic
    tab_pivot() 

# |              | #Total |
# | ------------ | ------ |
# |       dummy1 |   66.7 |
# |       dummy2 |   66.7 |
# |       dummy3 |   50.0 |
# | #Total cases |    6.0 |

# shorter notation with the same result
calc_cro_cpct(demo, mdset(dummy1 %to% dummy3), weight = survey_weight)

但请注意，
expss
使用SPSS风格的简单频率权重，而“调查”包可以提供更准确的权重方案