diff --git a/Przewodnik_studenta_lab/01LRAP_przewodnik.ipynb b/Przewodnik_studenta_lab/01LRAP_przewodnik.ipynb index 0e1eb75..99b99c2 100644 --- a/Przewodnik_studenta_lab/01LRAP_przewodnik.ipynb +++ b/Przewodnik_studenta_lab/01LRAP_przewodnik.ipynb @@ -347,15 +347,15 @@ "metadata": {}, "outputs": [], "source": [ - "# Wyykorzystamy zdefiniowaną wcześniej przestrzeń kostki3\n", + "# Wykorzystamy zdefiniowaną wcześniej przestrzeń kostki3\n", "# Zwróćmy uwagę, że zdarzenie A oznacza, że w pierwszym i drugim rzucie były szóstki LUB w pierwszym i trzecim rzucie były szóstki LUB w drugim i trzecim rzucie były szóstki\n", "# Możemy wyznaczyć prawdopodobieństwo A bezpośrednio przez użycie polecenia prob i odpowiedniej formuły logicznej\n", - "pA = Prob(kostki3, (X1==6&X2==6)|(X1==6&X3==6)|(X2==6&X3==6))\n", + "pA = Prob(kostki3, (X1==6 & X2==6) | (X1==6 & X3==6) | (X2==6 & X3==6))\n", "print(pA)\n", "# Alternatywnie, możemy wyznaczyć najpierw trzy pomocnicze zdarzenia i na końcu wyznaczyć ich sumę\n", - "A1 = subset(kostki3, X1==6&X2==6)\n", - "A2 = subset(kostki3, X1==6&X3==6)\n", - "A3 = subset(kostki3, X2==6&X3==6)\n", + "A1 = subset(kostki3, X1==6 & X2==6)\n", + "A2 = subset(kostki3, X1==6 & X3==6)\n", + "A3 = subset(kostki3, X2==6 & X3==6)\n", "A = union(A1, union(A2, A3))\n", "pA = Prob(A)\n", "print(pA)\n", @@ -375,7 +375,7 @@ "\n", "Do symulowania wyników doświadczenia losowego służy funkcja `sim(X, ntrials)`, gdzie `X` jest przestrzenią probabilistyczną, a `ntrials` liczbą powtórzeń eksperymentu losowego.\n", "\n", - "Z drugiej strony, jeśli wielokrotnie powtórzymy pewne doświadczenie losowe, to możemy na podstawie wyników spróbować wyznaczyć przestrzeń probabilistyczną. W języku R można to osiągnąć używając polecenia `empirical(X)`, gdzie `x` zawiera wyniki doświadczenia losowego. Polecenie to szacuje prawdopodobieństwa zdarzeń elementarnych jako ich relatywną częstość występowania." + "Z drugiej strony, jeśli wielokrotnie powtórzymy pewne doświadczenie losowe, to możemy na podstawie wyników spróbować wyznaczyć przestrzeń probabilistyczną. W języku R można to osiągnąć używając polecenia `empirical(X)`, gdzie `X` zawiera wyniki doświadczenia losowego. Polecenie to szacuje prawdopodobieństwa zdarzeń elementarnych jako ich relatywną częstość występowania." ] }, { @@ -385,7 +385,7 @@ "source": [ "**Przykład 8**\n", "\n", - "Ania i Bartek grają w grę ,,Losowe szlaki''. Prawdopodobieństwo wygranej Ani wynosi $0.3$, wygranej Bartka to $0.5$, a remisu $0.2$. Wykonaj symulacją $100$ powtórzeń tego eksperymentu losowego. Następnie porównaj rozkład wylosowanych wartości z ich rzeczywistym rozkładem." + "Ania i Bartek grają w grę ,,Losowe szlaki''. Prawdopodobieństwo wygranej Ani wynosi $0{,}3$, wygranej Bartka to $0{,}5$, a remisu $0{,}2$. Wykonaj symulacją $100$ powtórzeń tego eksperymentu losowego. Następnie porównaj rozkład wylosowanych wartości z ich rzeczywistym rozkładem." ] }, { @@ -406,8 +406,8 @@ "\n", "# Możemy też porównać otrzymany rozkład z rozkładem pierwotnym na wykresie\n", "w = rbind(gra$probs, gra_bis$probs)\n", - "barplot(w,names.arg=gra$x,beside=TRUE,col=c('lightblue','darkred'),xlab='Wyniki gry',ylab='Prawdopodobieństwo', main='Porównanie rozkładu rzeczywistego i wynikającego z symulacji')\n", - "legend(7,0.5,c('Rozkład rzeczywisty','Symulacja'),col=c('lightblue','darkred'),pch=15)" + "barplot(w, names.arg=gra$x, beside=TRUE, col=c('lightblue','darkred'), xlab='Wyniki gry', ylab='Prawdopodobieństwo', main='Porównanie rozkładu rzeczywistego i wynikającego z symulacji')\n", + "legend(7, 0.5, c('Rozkład rzeczywisty', 'Symulacja'), col=c('lightblue', 'darkred'), pch=15)" ] }, {