# 创建一个0到60的数组间隔为1
x <- seq(0,60,by = 1)
# 分别求出实现实验成功从0到60次的概率
y <- dbinom(x,60,0.5)
#画出二项分布的图像
barplot(y,col="pink",border="white")
#画出二项分布的图像
barplot(y,col="plum",border="white"</
# 创建一个0到60的数组间隔为1
x <- seq(0,60,by = 1)
# 分别求出实现实验成功从0到60次的概率
y <- dbinom(x,60,0.5)
#画出二项分布的图像
barplot(y,col="pink",border="white")
#画出二项分布的图像
barplot(y,col="plum",border="white"</