İlk basamak için Benford Yasası

Benford Yasası, ilk basamağın d olma olasılığının yaklaşık olarak (1 + 1/d) ifadesinin logaritmasına eşit olduğunu söyler. Beklenen frekansları çizdiğinde, 1,…,9 basamaklarının eşit sıklıkta ortaya çıkmadığı açıkça görülecek.

Bu egzersiz, kursun bir parçasıdır

R ile Dolandırıcılık Tespiti

Kursa Göz Atın

Egzersiz talimatları

İlk basamak için 10 tabanında log kullanan benlaw adlı bir fonksiyon olarak Benford yasasını uygula.
İlk basamağın 5 olmasına dair beklenen frekansı hesapla.
1'den 9'a kadar basamakları tutan digit adlı bir sütun ve Benford Yasası altındaki karşılık gelen olasılıkları tutan probability adlı bir sütun içeren bir veri çerçevesi oluştur.
1, 2, …, 9 basamakları için beklenen frekansları bir çubuk grafikte çizmek üzere gönder.

Uygulamalı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

# Implement Benford's Law for first digit
benlaw <- function(d) log10(___ + ___ / ___)

# Calculate expected frequency for d=5
benlaw(___)

# Create a dataframe of the 9 digits and their Benford's Law probabilities
df <- data.frame(digit = ___:___, probability = ___)

# Create barplot with expected frequencies
ggplot(df, aes(x = digit, y = probability)) + 
	geom_bar(stat = "identity", fill = "dodgerblue") + 
	xlab("First digit") + ylab("Expected frequency") + 
	scale_x_continuous(breaks = 1:9, labels = 1:9) + 
	ylim(0, 0.33) + theme(text = element_text(size = 25))

Kodu Düzenle ve Çalıştır