Mã vector hóa: tính log-sum

Một thao tác phổ biến trong thống kê là tính tổng của các log xác suất. Đoạn mã sau tính log-sum (tổng của các log).

# x là một vector xác suất
total <- 0
for(i in seq_along(x)) 
    total <- total + log(x[i])

Tuy nhiên, bạn có thể cải thiện đáng kể đoạn mã này bằng cách dùng mã vector hóa.

Tìm log-sum của x bằng các hàm log() và sum(), rút gọn vòng lặp ở trên.
Lưu câu trả lời của bạn vào đối tượng log_sum.