求几何分布的期望方差的r程序

在R语言中，几何分布（Geometric Distribution）的期望值（Mean）和方差（Variance）可以通过公式直接计算。几何分布通常描述的是试验次数直到第一次成功的概率分布，其参数是成功概率p。对于几何分布，期望E(X)和方差V(X)如下：

- 期望（Mean, E(X)）: 当试验成功的概率为p时，预期需要尝试的次数为1/p。
- 方差（Variance, V(X)）: 方差等于期望的平方除以成功概率，即 V(X) = E(X)^2 / p。

下面是使用R语言计算几何分布期望和方差的简单代码：

# 定义一个函数来计算几何分布的期望和方差
geometric_stats <- function(p) {
  mean <- 1 / p
  variance <- mean^2 / p
  list(mean = mean, variance = variance)
}

# 使用具体的成功概率p来计算
p <- 0.6  # 假设成功概率是0.6
result <- geometric_stats(p)
cat("期望值:", result$mean, "\n")
cat("方差:", result$variance, "\n")

在这个例子中，你可以将`p`替换为你实际问题中的成功概率。运行这段代码后，你会得到期望值和方差的结果。