研一R语言选修课程第二次课后习题分享（含代码）

前言

这次作业我自认写的不好，对R语言了解不深，仅限于娱乐性写法，对于非放回的抽样写的不好，直接采用了排列组合的知识。

一、题目（概率问题练习）

二、源代码

sink("./23.R-Project/output2.doc", append = TRUE, split = TRUE)
# R语言第二次作业，环境：R，编译器：VSCodeprint('PPT第一题,未要求写，可以不做！')
# 恰有一次出现正面
p_1 <- dbinom(1, size = 3, prob = 0.5)
print(p_1)

# 至少有一次出现正面
p_2 <- 1 - dbinom(0, size = 3, prob = 0.5)
print((p_2))


print('放回的情况')
x <- c('白1', '白2', '白3', '白4', '红1', '红2')
# 先考虑放回的情况
# 取到两只都是白球的概率
p_3 <- dbinom(2, size = 2, prob = 2 / 3) 
print(p_3)

# 取到两只球颜色相同的概率
p_4 <- dbinom(2, size = 2, prob = 1 / 3) + dbinom(2, size = 2, prob = 2 / 3)
print(p_4)

# 取到两只球中至少有一只是白球的概率
p_5 <- 1 - dbinom(0, size = 2, prob = 2 / 3)
print(p_5)

print('不放回的情况')
# 考虑不放回的情况
# 取到两只都是白球的概率
sam <- choose(4, 1) * choose(3, 1)
all <- choose(6, 1) * choose(5, 1)
p_6 <- sam / all
print(p_6)

# 取到两只球颜色相同的概率
p_7 <- p_6 + (choose(2 , 1) / all)
print(p_7)

# 取到两只球中至少有一只是白球的概率
p_8 <- 1 - (choose(2, 1) / all)
print(p_8)
sink()
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

三、结果展示

> source("d:\\Code Project\\23.R-Project\\homework_2.r", encoding = "UTF-8")
[1] 0.375
[1] 0.875
[1] "放回的情况"
[1] 0.4444444
[1] 0.5555556
[1] 0.8888889
[1] "不放回的情况"
[1] 0.4
[1] 0.4666667
[1] 0.9333333
1
2
3
4
5
6
7
8
9
10
11