ベクトル化コード：対数の合計を計算する

統計では、対数確率の合計を計算する操作がよくあります。次のコードは対数の合計（各要素の対数を足し合わせたもの）を計算しています。

# x は確率のベクトルです
total <- 0
for(i in seq_along(x)) 
    total <- total + log(x[i])

ただし、このコードはベクトル化を使うことで大幅に改善できます。

log() と sum() を使って x の対数の合計を求め、上のループを簡潔に書き直してください。
答えはオブジェクト log_sum に保存してください。