---
title: "R Laboratuvarı 4: Sayma ve olasılık"
format: html
execute:
  echo: true
  warning: false
---

Üç ikili sensörün sekiz durumu tam sayımla oluşturulur. Eş olasılık yalnız öğretim modelinin varsayımıdır.

## Üç olay için dahil etme-dışlama

~~~{r}
union_probability <- 0.10 + 0.07 + 0.05 - 0.02 - 0.01 - 0.015 + 0.005
stopifnot(all.equal(union_probability, 0.18))

check_table <- data.frame(
  olcu = c("tekil olasılıkların toplamı", "düzeltilmiş birleşim olasılığı"),
  deger = c(0.10 + 0.07 + 0.05, union_probability)
)
knitr::kable(check_table, digits = 3, caption = "Çakışan arıza yollarının düzeltilmesi")
~~~

Ortak olaylar bilinmeden tekil olasılıkları toplamak, aynı sistem durumunu birden fazla kez sayabilir.

```{r}
durumlar <- expand.grid(S1 = 0:1, S2 = 0:1, S3 = 0:1)
durumlar$alarm_sayisi <- rowSums(durumlar)
ozet <- data.frame(
  olay = c("hiç alarm yok", "tam bir alarm", "en az iki alarm"),
  durum_sayisi = c(
    sum(durumlar$alarm_sayisi == 0),
    sum(durumlar$alarm_sayisi == 1),
    sum(durumlar$alarm_sayisi >= 2)
  )
)
ozet$olasilik <- ozet$durum_sayisi / nrow(durumlar)
knitr::kable(ozet, digits = 3, caption = "Eş olasılıklı sensör durumları")
```