replacement has length zero error in R programming of a no claim discount scheme

Question

I tried to run this code in R to calculate the revenue a company makes from premiums after n years but I keep getting the replacement has length zero error. (power_of_TM is