如何在R中创建扔两个骰子的样本空间?