R软件编写一个函数，模拟抛硬币实验，并计算抛一万次硬币得到正面的概率。