# Configuracion inicial y carga de librerias
knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)
library(readxl)
## Warning: package 'readxl' was built under R version 4.3.3
library(ggplot2)
library(knitr)
# --- Parametros Iniciales ---
monto_cop <- 350000000
trm_hoy <- 3950
monto_usd <- monto_cop / trm_hoy

# Financiamiento (90% del valor total)
cuota_inicial_usd <- monto_usd * 0.10
credito_usd <- monto_usd - cuota_inicial_usd

# Condiciones del Credito
plazo_anos <- 10
n_cuotas <- plazo_anos * 4
tasa_ea_usd <- 0.065
tasa_trimestral <- (1 + tasa_ea_usd)^(1/4) - 1

# Calculo de la cuota trimestral fija
cuota_trim_usd <- credito_usd * (tasa_trimestral / (1 - (1 + tasa_trimestral)^-n_cuotas))

resultados_credito <- data.frame(
  Concepto = c("Inversion Total (USD)", "Credito a Financiar (USD)", "Cuota Trimestral (USD)"),
  Valor = c(round(monto_usd, 2), round(credito_usd, 2), round(cuota_trim_usd, 2))
)

kable(resultados_credito, caption = "Resumen del Credito Externo")
Resumen del Credito Externo
Concepto Valor
Inversion Total (USD) 88607.59
Credito a Financiar (USD) 79746.84
Cuota Trimestral (USD) 2708.14 
# Tasas comerciales supuestas (Diferencial de tasas)
tasa_col <- 0.12  # 12% EA en Colombia
tasa_usa <- 0.05  # 5% EA en EE.UU.

# Proyeccion de Precios Forward
anos <- 6:9
precios_fwd <- trm_hoy * ((1 + tasa_col) / (1 + tasa_usa))^anos

# Construccion de la tabla de cobertura
tabla_cobertura <- data.frame(
  Periodo_Anual = anos,
  Tasa_Forward_COP = round(precios_fwd, 2),
  USD_Asegurados = round(cuota_trim_usd * 4 * 0.75, 2)
)

# Costo total asegurado en pesos colombianos
tabla_cobertura$Costo_Asegurado_COP <- round(tabla_cobertura$USD_Asegurados * tabla_cobertura$Tasa_Forward_COP, 0)

kable(tabla_cobertura, caption = "Cronograma de Cobertura (Anos 6-9)")
Cronograma de Cobertura (Anos 6-9)
Periodo_Anual Tasa_Forward_COP USD_Asegurados Costo_Asegurado_COP
6 5817.94 8124.43 47267446
7 6205.81 8124.43 50418669
8 6619.53 8124.43 53779908
9 7060.83 8124.43 57365219 
# Se ejecuta el bloque completo para evitar errores de sintaxis en la consola
plot(anos, precios_fwd, type="b", pch=19, col="darkblue",
     main="Estructura de Plazos: Curva de Precios Forward",
     xlab="Anos de la Inversion", ylab="Precio Forward (COP)",
     ylim=c(trm_hoy, max(precios_fwd) * 1.1))
grid()
abline(h=trm_hoy, col="red", lty=2)
legend("bottomright", legend=c("Precio Forward", "TRM Hoy (Spot)"), 
       col=c("darkblue", "red"), lty=c(1,2), pch=c(19, NA))