szymon/ZUT-notatki
1
0
Fork 0
mirror of https://github.com/szymon-jozef/ZUT-notatki.git synced 2026-09-07 12:10:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix

Browse Source
This commit is contained in:
Szymon P
2026-04-21 09:34:20 +02:00
parent 7016157d6f
commit 5bd6a056b9
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
uczelnia/2_semestr/matematyka_stosowana/laby/podumowanie_do_6.R
View File

@@ -229,12 +229,15 @@ n = 2000
p = 0.002 p = 0.002
q = 1 - p q = 1 - p
sum(dbinom(5:12, n, p)) sum(dbinom(6:12, n, p))
if (n >= 50 & n * p <= 10) { if (n >= 50 & n * p <= 10) {
sum(dpois(5:12, n * p)) sum(dpois(6:12, n * p))
} }
p = q
q = 0.002
sum(dbinom(1992:2000, n, p, F)) sum(dbinom(1992:2000, n, p))
pnorm(1992, n * p, sqrt(n * p * q), F)