वेक्टराइज़्ड कोड: log-sum निकालना

सांख्यिकी में एक आम ऑपरेशन log probabilities के योग की गणना करना है। नीचे दिया गया कोड log-sum (यानी logs के योग) की गणना करता है.

# x probabilities का एक वेक्टर है
total <- 0
for(i in seq_along(x)) 
    total <- total + log(x[i])

हालाँकि, इस कोड को वेक्टराइज़्ड कोड का उपयोग करके काफ़ी बेहतर और तेज़ बनाया जा सकता है।

यह अभ्यास पाठ्यक्रम का हिस्सा है

कार्यकुशल R कोड लिखना

पाठ्यक्रम देखें

अभ्यास निर्देश

log() और sum() फंक्शनों का उपयोग करके x का log-sum निकालें, और ऊपर दिए गए लूप को सरल करें.
अपना उत्तर log_sum ऑब्जेक्ट में स्टोर करें.

इंटरैक्टिव व्यावहारिक अभ्यास

इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।

# Initial code
n <- 100
total <- 0
x <- runif(n)
for(i in 1:n) 
    total <- total + log(x[i])

# Rewrite in a single line. Store the result in log_sum
log_sum <- ___

कोड संपादित करें और चलाएँ