Tek bir n için simülasyon
50 kişilik bir oda için, simülasyon yoluyla bir çözüm bularak başlayalım.
Bu kodda n oda büyüklüğümüzü temsil eder ve match, simülasyonda en az bir doğum günü eşleşmesinin gerçekleştiği tekrarların sayısını tutan sayaçtır; başlangıç değeri 0'dır ve eşleşme olduğunda her yinelemede artırılmalıdır.
Bu egzersiz, kursun bir parçasıdır
R ile Olasılık Bulmacaları
Egzersiz talimatları
- Her bireye rastgele doğum günü atamak için
samplefonksiyonunun gerekli parametrelerini doldur. - Sağladığı koşula göre
matchdeğişkenini artır. - En az bir eşleşme olma olasılığının tahmini değerini hesapla.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
set.seed(1)
n <- 50
match <- 0
# Simulate 10000 rooms and check for matches in each room
for(i in 1:10000){
birthdays <- sample(___, ___, replace = ___)
if(length(unique(birthdays)) < n){
match <- ___
}
}
# Calculate the estimated probability of a match and print it
p_match <- ___
print(___)