Моделирование ошибок знака: переменные вероятности

В предыдущем упражнении каждое моделирование имело фиксированную вероятность ошибки знака на каждом шаге.

В исходной формулировке задачи вероятность ошибки знака может быть различной на каждом шаге; единственное требование — чтобы каждая вероятность была меньше 0,50.

Здесь мы смоделируем математическую задачу с 2 шагами, в которой вероятность смены знака на каждом шаге равна 0,49 и 0,01. Это означает, что на первом шаге велика вероятность получить неверный ответ, а на втором — вероятность возврата к верному очень мала.

Это упражнение является частью курса

Задачи по теории вероятностей на R

Посмотреть курс

Инструкции к упражнению

Используйте функцию sapply совместно с функцией rbinom, чтобы смоделировать смены знака в рамках одной задачи: вероятности смены знака на первом и втором шагах равны 0,49 и 0,01 соответственно.
Определите общее количество произошедших смен знака.
Определите, является ли ответ математической задачи верным или нет.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

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)

Редактировать и запускать код