대체 현금흐름 벡터 코드
위 예시에서 cf <- c(3, 3, 3, 3, 3, 3, 3, 103)처럼 직접 코드를 작성해 현금흐름 벡터를 만들었을 수 있어요.
하지만 이런 방식은 다소 번거롭게 느껴질 수 있습니다. 다른 방법으로 rep() 명령으로 현금흐름 벡터를 만들 수 있어요. rep(x, y)를 입력하면 x가 y번 자동으로 반복됩니다. 예를 들어 rep(1, 4)는 c(1, 1, 1, 1)과 동일합니다.
이 연습 문제에서는 일련의 입력값에 따라 현금흐름 벡터를 계산하는 좀 더 일반적인 함수를 만들어 볼 거예요. 쿠폰율은 r, 액면가는 p, 만기까지의 기간은 ttm을 사용합니다. 이를 위해 rep() 명령을 활용해 보세요.
이 연습은 강의의 일부입니다
R로 배우는 채권 가치 평가와 분석
연습 안내
rep()과 입력 변수r,p,ttm을 사용해 대체 현금흐름 함수를 코딩하고, 이 함수를alt_cf로 저장하세요.alt_cf를 사용해 쿠폰율(r) 3%(0.03), 액면가(p) $100, 만기(ttm) 8년의 현금흐름 벡터를 생성하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Code cash flow function
alt_cf <- function(r, p, ttm) {
c(rep(p * r, ___ - 1), ___ * (1 + ___))
}
# Generate cf vector
alt_cf(r = ___, p = ___, ttm = ___)