행 합계 계산하기

두 번째로 발견된 병목은 행 합계를 계산하는 부분이었어요.

total <- apply(d, 1, sum)

이전 연습 문제에서 기본 객체를 행렬로 바꿨습니다. 덕분에 위의 apply 연산이 세 배가량 빨라졌어요. 하지만 더 최적화할 수 있는 방법이 하나 더 있어요. apply()를 rowSums()로 바꾸는 것입니다.

이 연습은 강의의 일부입니다

효율적인 R 코드 작성

강의 보기

연습 안내

rowSums()를 사용해 r_sum() 함수를 완성하세요.
microbenchmark() 함수를 사용해 app()과 r_sum()의 실행 시간을 비교하세요.

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# 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 = ___
)

코드 편집 및 실행