Problem 1

library(FinCal)
fv<-fv.simple(.08,5,-50000)
pmt(.08,10,-fv,0,)
[1] 10949

Problem 2

rate<-((34.58/6)/36.06)*100
(rate/36.06)*100
[1] 44.3

Problem 3

(30000-2790)/17
[1] 1601

Problem 5

r<-(8000/5500)^(1/3)-1
r
[1] 0.133
r> .08
[1] TRUE

Problem 6

FinCal::discount.rate(20,-20000,0,1800,type = 0)
[1] 0.0639

Problem 7

#### a

FinCal::fv(.08,20,-1000,pmt=0,type=0)
[1] 4661
fv
[1] 73466
fv<-pmt(.08,20,-1000,4661,type = 0)

#### b

FinCal::fv(.08,20,-1000,pmt=0,type=0)
[1] 4661
FinCal::fv(.08,5,-1000,pmt = 0,type = 0)
[1] 1469
4661-1469
[1] 3192

Problem 8