table.from.phi(.28, .64, .38, 200)
# Should return:
# cell 11 cell 12 cell 21 cell 22
# Proportion: 0.2610974 0.0189026 0.3789026 0.3410974
# Frequency 52.0000000 4.0000000 76.0000000 68.0000000
Run the code above in your browser using DataLab