编码功能

问题描述

我有一个分配问题，我认为使用函数会更容易。我尝试过并收到一个错误。我的问题是，如何将突出显示的数学代码编码为函数？我希望函数在更改样本大小时返回概率输出。

例如，在突出显示的数学中，样本大小为24，我必须选择20。

下面的图片。

enter image description here

我希望函数基本上像下面的公式，并且我想输入不同的样本大小以产生输出。

P（X = 20）＆=＆{Sample_Size \ choose 20} *（0.90 ^ 20）*（0.10 ^ 4）=“输出”

这是我尝试做的无济于事的错误

“概率

Probability <- function(Sample_Size) {Probability<- choose(Sample_Size,X)*.9^X *.10^(Sample_Size-X) return(Probability)

解决方法

R中已经有一个函数可以为您完成此操作。它被称为dbinom（因为您似乎正在使用二项式分布）。

以下是使用方法的示例：

dbinom(x = 20,size = 24,prob = 0.9)
#> [1] 0.1291874
dbinom(x = 21,prob = 0.9)
#> [1] 0.221464
dbinom(x = 22,prob = 0.9)
#> [1] 0.2717968

^{由reprex package（v0.3.0）于2020-09-13创建}

• 第一个参数（x）表示您想要获得概率的成功次数。

• 第二个（大小）为样本大小

• 第三个（概率）采用成功的概率。

,

它应该看起来像这样：

your_input # sample_size

Probability<-function(Sample_Size,X) {
   Probability<- choose(Sample_Size,X)*.9^X *.10^(Sample_Size-X) 
   return(Probability)
 }
    
Probability(your_input,20) # 20 being a random input number -> depends on your X value

请参阅@Rui Barradas的答案