设随机变量X服从离散分布P(X=K)=pk,k=1,2,…，m.编写R程序，输入{pk}，输出n个该离散分布的随机数用R语言代码怎么写

在R语言中，你可以使用`sample()`函数结合`rep()`函数来生成离散分布的随机数。假设`pk`是一个向量，表示各个取值的概率，`m`是离散值的最大值，`n`是你想要生成的随机数的数量。下面是一个简单的R程序示例：

# 定义概率向量 pk 和最大离散值 m
pk <- c(pk[1], pk[-1])  # 如果 pk 的第一个元素不是第一个概率，需要单独处理
m <- length(pk) - 1      # 排除第一个值后的长度

# 确保概率之和为1，如果有必要
if(sum(pk) != 1) {
  pk <- pk / sum(pk)
}

# 生成 n 个随机数，依据给定的概率分布
set.seed(1)   # 设置随机种子以便于复现结果
random_numbers <- sample(m, size = n, replace = TRUE, prob = pk)

# 输出随机数
random_numbers

在这个代码中，`sample(m, size = n, replace = TRUE, prob = pk)`会根据指定的概率 `prob` 从整数集 `{1, 2, ..., m}` 中选取 `n` 个数值。`replace = TRUE` 表示允许重复抽取。