data(hdv2003)
wtd.table(hdv2003$sexe, weights = hdv2003$poids)
wtd.table(hdv2003$sexe, weights = hdv2003$poids, normwt = TRUE)
table(hdv2003$sexe, hdv2003$hard.rock)
wtd.table(hdv2003$sexe, hdv2003$hard.rock, weights = hdv2003$poids)
Run the code above in your browser using DataLab