```
# NOT RUN {
pat <- md.pairs(nhanes)
pat
# show that these four matrices decompose the total sample size
# for each pair
pat$rr + pat$rm + pat$mr + pat$mm
# percentage of usable cases to impute row variable from column variable
round(100*pat$mr/(pat$mr+pat$mm))
# }
```

Run the code above in your browser using DataLab