Satır toplamlarını hesaplama
Belirlenen ikinci darboğaz, satır toplamlarının hesaplanmasıydı.
total <- apply(d, 1, sum)
Önceki egzersizde alttaki nesneyi bir matrise çevirmiştin. Bu, yukarıdaki apply işlemini üç kat hızlandırır.
Ama kullanabileceğin bir optimizasyon daha var — apply() yerine rowSums() kullanmak.
Bu egzersiz, kursun bir parçasıdır
Verimli R Kodu Yazma
Egzersiz talimatları
rowSums()kullanarakr_sum()fonksiyonunu tamamla.microbenchmark()fonksiyonunu kullanarakapp()ver_sum()zamanlamalarını karşılaştır.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Example data
rolls
# Define the previous solution
app <- function(x) {
apply(x, 1, sum)
}
# Define the new solution
r_sum <- function(x) {
___(x)
}
# Compare the methods
microbenchmark(
app_sol = app(rolls),
r_sum_sol = ___
)