Månatliga amorteringsbetalningar
Cynthias föräldrar tar emot ett lån på 125 000 EUR i utbyte mot fasta månatliga betalningar \(K\) under de kommande 20 åren, vilket visas i grafen nedan.
Med hjälp av variablerna number_payments och monthly_interest från föregående övning, som redan är inlästa åt dig, är det din uppgift att bestämma värdet på \(K\) utifrån principen om aktuariell ekvivalens.
Den här övningen är en del av kursen
Värdering av livförsäkringsprodukter i R
Övningsinstruktioner
- Definiera diskonteringsfaktorerna för den första betalnadsmånaden till och med den sista. Gör detta genom att upphöja 1 plus
monthly_interesttill minuspotensen av en vektor från 1 tillnumber_payments. - Skapa variabeln
payments, som representerar betalningsflödet. Den ska vara en vektor av ettor med längdennumber_payments. - Beräkna slutligen den månatliga betalningen \(K\) genom att dividera lånebeloppet 125 000 med nuvärdet av betalningsflödet.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K