Simulace chyb znaménka: měnící se pravděpodobnosti

V předchozím cvičení měla každá simulace pevně stanovenou pravděpodobnost chyby znaménka v každém kroku.

V původním zadání otázky může být pravděpodobnost chyby znaménka v každém kroku jiná – jediná podmínka je, že každá pravděpodobnost musí být menší než 0,50.

Tady si zkusíme nasimulovat matematický příklad se 2 kroky, kde je pravděpodobnost přepnutí v každém kroku 0,49 a 0,01 – to znamená vysokou pravděpodobnost, že výsledek bude v prvním kroku nesprávný, a nízkou pravděpodobnost návratu zpět.

Toto cvičení je součástí kurzu

Probability Puzzles in R

Zobrazit kurz

Pokyny k cvičení

Pomocí funkce sapply a funkce rbinom nasimuluj přepnutí v rámci jednoho příkladu – s pravděpodobnostmi přepnutí 0,49 a 0,01 pro první a druhý krok.
Zjisti celkový počet přepnutí, ke kterým došlo.
Urči, zda by odpověď na matematický příklad byla správná, nebo ne.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

set.seed(1)
counter <- 0

for(i in 1:10000){
  # Simulate switches
  each_switch <- sapply(___)
  # Count switches
  num_switches <- 
  # Check solution
  if(___){
    counter <- counter + 1
  }
}

print(counter/10000)

Upravit a spustit kód