Laboratorio 1 Derivados

# 1. Librerías necesarias
library(readxl)

## Warning: package 'readxl' was built under R version 4.3.3

library(ggplot2)
library(tseries)

## Warning: package 'tseries' was built under R version 4.3.3

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

# --- PUNTO 2 & 3: Simulación de Crédito ---
# Supuestos iniciales
monto_cop <- 280000000
trm_hoy <- 3900 
monto_usd <- monto_cop / trm_hoy
cuota_inicial_usd <- monto_usd * 0.10
credito_usd <- monto_usd - cuota_inicial_usd

# Parámetros del crédito (Sistema Francés)
plazo_anos <- 10
n_cuotas <- plazo_anos * 4  # 40 cuotas trimestrales
tasa_anual_usd <- 0.065     # Ejemplo: 6.5% EA
tasa_trimestral <- (1 + tasa_anual_usd)^(1/4) - 1

# Cálculo de la cuota fija en USD
cuota_trimestral_usd <- credito_usd * (tasa_trimestral / (1 - (1 + tasa_trimestral)^-n_cuotas))

# Resultados para ver en el informe
cat("Monto de la maquinaria (USD):", monto_usd, "\n")

## Monto de la maquinaria (USD): 71794.87

cat("Crédito a financiar (USD):", credito_usd, "\n")

## Crédito a financiar (USD): 64615.38

cat("Valor de la cuota trimestral (USD):", cuota_trimestral_usd)

## Valor de la cuota trimestral (USD): 2194.292