Symulacja błędów znaku: zmienne prawdopodobieństwa
W poprzednim ćwiczeniu każda symulacja miała stałe prawdopodobieństwo błędu znaku na każdym kroku.
W oryginalnym sformułowaniu zadania prawdopodobieństwo błędu znaku może być inne na każdym kroku – jedynym warunkiem jest to, że każde z tych prawdopodobieństw jest mniejsze niż 0,50.
Tutaj zasymulujemy zadanie matematyczne składające się z 2 kroków, w którym prawdopodobieństwo zmiany znaku wynosi odpowiednio 0,49 i 0,01. Oznacza to, że na pierwszym kroku istnieje duże prawdopodobieństwo uzyskania niepoprawnego wyniku, a na drugim – małe prawdopodobieństwo powrotu do poprawnego.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Użyj funkcji
sapplywraz z funkcjąrbinom, aby zasymulować zmiany znaku w ramach jednego zadania. Przyjmij prawdopodobieństwa zmiany znaku równe 0,49 i 0,01 odpowiednio dla pierwszego i drugiego kroku. - Wyznacz łączną liczbę zmian znaku, które wystąpiły.
- Określ, czy odpowiedź do zadania matematycznego byłaby poprawna, czy nie.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)