用R语言编写程序 从1-13中随机无放回的选5个数，求组成奇数的概率

在R语言中，你可以使用`sample()`函数来随机选择数字，并通过条件逻辑检查是否都是奇数。下面是一个简单的步骤来计算从1到13中随机选取5个数并全部为奇数的概率：

1. 首先，我们需要创建一个1到13的整数向量。
2. 使用`sample()`函数从中无放回地选取5个元素，存储在一个变量中，比如`numbers_sampled`。
3. 然后，我们可以使用`all()`函数判断这5个数是否全部为奇数。
4. 最后，为了计算概率，我们将成功的组合数除以总的组合数（即13取5），可以使用`choose(13, 5)`表示。

以下是具体的R代码实现：

# 生成1到13的所有数字
numbers <- 1:13

# 无放回地随机抽取5个数字
numbers_sampled <- sample(numbers, size = 5, replace = FALSE)

# 检查是否全为奇数
is_odd <- all(numbers_sampled %% 2 == 1)

# 计算全为奇数的组合数（成功事件数）
successes <- choose(sum(is_odd), sum(is_odd))

# 总的组合数（总事件数）
total_combinations <- choose(length(numbers), length(numbers_sampled))

# 概率计算
probability_odd <- successes / total_combinations

# 输出结果
cat("概率为：", probability_odd, "\n")

运行这段代码后，你会得到从1到13中随机无放回选取5个数全部为奇数的概率。