예상 현금흐름의 현재가치 (2)

훌륭해요! 이제 이 장의 마무리에 가까워졌고, 데이터 프레임과 금융의 진정한 고수가 되어 가고 있어요. 넘어가기 전에 몇 가지 질문에 더 답해 볼게요.

이제 present_value 열이 있지만, 이 열의 총합을 이사회에 보고하려고 해요. 이 계산은 간단해요. 앞에서 배운 sum() 함수를 사용해 cash$present_value의 원소를 모두 더하세요.

하지만 전체 현재가치에 회사 A와 회사 B가 각각 얼마나 기여하는지도 알고 싶어요. 데이터 프레임에서 회사 A 혹은 B만 포함하도록 행을 분리하는 방법을 기억하시나요?

cash_A <- subset(cash, company == "A")

sum(cash_A$present_value)

[1] 4860.218

sum() 함수를 사용해 cash의 전체 present_value를 계산하고, 결과를 total_pv에 할당하세요.
회사 B에 대한 행만 포함하도록 cash를 부분 집합으로 만들어 cash_B를 생성하세요.
sum()과 cash_B를 사용해 회사 B의 전체 present_value를 계산하고, 결과를 total_pv_B에 할당하세요.