如何在R中生成伯努利随机变量?