r语言p1=1/3,p2=2/3,生成随机数