Question: how to generate a binomial sample


here my code . iam trying to generate a binomial sample but there is some error occure please help

with(Statistics):

 

with(Student[Statistics]):

``

P := .1:

``

r[1] := convert(BinomialRandomVariable(N-n, P), `+`)

`Non-fatal error while reading data from kernel.`

(1)

for i from 2 to N-n do A[i-1] := convert(r[i-1], `+`); r[i] := BinomialRandomVariable(N-n-(sum(A[i], j = 1 .. i-1)), P) end do;

`Non-fatal error while reading data from kernel.`

 

`Non-fatal error while reading data from kernel.`

 

`Non-fatal error while reading data from kernel.`

 

`Non-fatal error while reading data from kernel.`

 

`Non-fatal error while reading data from kernel.`

 

`Non-fatal error while reading data from kernel.`

 

`Non-fatal error while reading data from kernel.`

 

`Non-fatal error while reading data from kernel.`

(2)

for i to N-n do x[i] := Sample(r[i], 1) end do

x[1] := Vector[row](1, {(1) = 1})

 

Error, (in pr) unable to evaluate 5-A[2] to floating-point

 

sum(R[j], j = 0 .. 10)

2+R[0]+r[4]+r[5]+R[6]+R[7]+R[8]+R[9]+R[10]

(3)

``

NULL


 

 

Please Wait...