1.射手向目标独立地进行了3次射击，每次击中率为0.8，求3次射击中至少击中2次的概率。

##由于题目要求是三次至少击中两次，可以计算P(X=2),P(X=3)的概率加.

p1=dbinom(2,3,0.8);p2=dbinom(3,3,0.8);P = p1+p2

P
## [1] 0.896
##或者可以使用逆概率:1-P(X<=1)的方法。
P=1-pbinom(1,3,0.8)

P
## [1] 0.896

#对于题目1二项分布的绘图如下:

x=seq(0,3,1) pmf=dbinom(x,3,0.8) plot(x,pmf,type=“h”,main=“X~B(3,0.8)分布条状图”)

2.某地某天下雪的概率为0.3，下雨的概率为0.5，既下雨又下雪的概率为0.1，求：2.1:在下雨的条件下下雪的概率为？2.2:这天下雨或下雪的概率为？

##2.1：

snow_only <- 0.3;rain_only <- 0.5;snow_and_rain <- 0.1;probability_rain_given_snow <- snow_and_rain/ rain_only

print(paste("在已知下雨的情况下下雪的概率为:", probability_rain_given_snow))
## [1] "在已知下雨的情况下下雪的概率为: 0.2"

##2.2：

#定义已知的概率值

snow_prob <- 0.3;rain_prob <- 0.5;snow_rain_prob <- 0.1

#计算下雨或下雪的概率
RainOrSnow_prob <- rain_prob + snow_prob - snow_rain_prob

#输出结果
print(paste("这天下雨或下雪的概率为: ", RainOrSnow_prob))
## [1] "这天下雨或下雪的概率为:  0.7"