options(digits = 10)
library(fortunes)
fortune(92)
## 
## If you don't go with R now, you will someday.
##    -- David Kane (on whether to use R or S-PLUS)
##       R-SIG-Finance (November 2004)

Uso de algunas funciones del paquete FinCal

library(FinCal)
ls("package:FinCal") # funciones del paquete
##  [1] "bdy"                   "bdy2mmy"              
##  [3] "candlestickChart"      "cash.ratio"           
##  [5] "coefficient.variation" "cogs"                 
##  [7] "current.ratio"         "ddb"                  
##  [9] "debt.ratio"            "diluted.EPS"          
## [11] "discount.rate"         "ear"                  
## [13] "ear.continuous"        "ear2bey"              
## [15] "ear2hpr"               "EIR"                  
## [17] "EPS"                   "financial.leverage"   
## [19] "fv"                    "fv.annuity"           
## [21] "fv.simple"             "fv.uneven"            
## [23] "geometric.mean"        "get.ohlc.google"      
## [25] "get.ohlc.yahoo"        "get.ohlcs.google"     
## [27] "get.ohlcs.yahoo"       "gpm"                  
## [29] "harmonic.mean"         "hpr"                  
## [31] "hpr2bey"               "hpr2ear"              
## [33] "hpr2mmy"               "irr"                  
## [35] "irr2"                  "iss"                  
## [37] "lineChart"             "lineChartMult"        
## [39] "lt.d2e"                "mmy2hpr"              
## [41] "n.period"              "npm"                  
## [43] "npv"                   "pmt"                  
## [45] "pv"                    "pv.annuity"           
## [47] "pv.perpetuity"         "pv.simple"            
## [49] "pv.uneven"             "quick.ratio"          
## [51] "r.continuous"          "r.norminal"           
## [53] "r.perpetuity"          "sampling.error"       
## [55] "SFRatio"               "Sharpe.ratio"         
## [57] "slde"                  "total.d2e"            
## [59] "twrr"                  "volumeChart"          
## [61] "was"                   "wpr"

Algunos ejemplos del “Manual para el cálculo de rentabilidades” de Corredores Asociados

Un inversionista coloca $ 100 durante un año a una tasa de interés simple de 1.5% mensual pagadera mensualmente ¿Qué retribución obtiene durante el año?

I= 100*0.015*12
F=100 + I
F
## [1] 118

Ejemplo 2

Considere el caso del inversionista del ejemplo anterior, pero suponiendo que recibe los intereses al final de cada mes y que los reinvierte inmediatamente en las mismas condiciones de la inversión inicial.¿Qué cantidad de dinero recibirá al cabo de un año ?

fv.simple(r = 0.015, n=12, pv = -100)
## [1] 119.5618171

Ejemplo 3

¿Cuál es la tasa de interés nominal anual de una inversión que ofrece el 1.5% de interés pagado al final de cada mes?

r.norminal(r = 0.015, 12) * 12
## [1] 0.1801125469

Ejemplo 4

¿Cuál es la tasa efectiva anual de rendimiento de una inversión que ofrece un interés nominal anual del 8%, pagadero cada semestre vencido, pero que el interesado procede a reinvertirlo?

ear(r = 0.08, 2)
## [1] 0.0816

Ejemplo 11

Si hoy se invierte $ 1 000 000 a una tasa de interés vencida del 8% nominal anual capitalizado anualmente, ¿Cuánto se obtendrá al cabo de cinco años?

fv.simple(r = .08, n = 5, pv = 1000000)
## [1] -1469328.077

Ejemplo 12

Determinar cuál es el valor futuro equivalente dentro de dos años de $ 200 000 que se invierten hoy a un interés del 7.44% nominal anual mes vencido con interés compuesto.

fv.simple(r = 0.0744/12, n = 24, pv = 200000)
## [1] -231981.5829

Ejemplo 13

Si un inversionista desea $ 5 000 000 dentro de seis meses, ¿Cuánto deberá colocar hoy en una alternativa de inversión que le genera un rendimiento del 7.5% anual, capitalizado cada trimestre vencido?

pv.simple(r = .075/4, n = 2, fv = 5000000)
## [1] -4817644.623

Ejemplo 14

Se colocan hoy $ 3 000 000 con una tasa de interés del 1.18% mensual capitalizado mensualmente por anticipado, ¿Cuánto se tendrá dentro de 8 meses?

fv.simple(r = 1/(1- 0.0118)-1, n = 8, pv = -3000000)
## [1] 3298849.163

Ejemplo 15

¿Cuánto se debe invertir anualmente en cuotas iguales en un instrumento financiero durante los próximos tres años, si al final de dicho período se desean tener $ 4 000 000 acumulados y si la tasa de interés que paga el emisor del instrumento es del 7.56% anual?

pmt(r=0.0756, n=3 , pv=0 , fv = -4000000)
## [1] 1237426.448

Ejemplo 16

¿A cuánto debe ascender una inversión, colocada durante tres años a una tasa de interés anual vencida del 10%, si al final de cada año se le devuelven $1 000 000 al inversionista?

pv.annuity(r = 0.1, n = 3, pmt = -1000000)
## [1] 2486851.991

Ejemplo 17

Si la tasa de interés anual es de 10.36%, ¿Cuál es el valor presente neto del proyecto representado por los flujos: (-1 000 000, 500 000, 300 000, 700 000, -350 000)

npv(r=0.1036, cf=c(-1000000, 500000, 300000, 700000, -350000))
## [1] -15778.63011

Ejemplo 18

¿A qué precio o con qué descuento debe adquirir un inversionista un título que se redime a los cinco años, si al final de cada año recibe intereses de 12% con respecto al valor del documento mencionado y aspira a obtener un rendimiento anual equivalente al 14%?

npv(r=0.14, cf=c(0,rep(12,4),112))
## [1] 93.13383806

Ejemplo 19

Hallar la tasa interna de retorno del siguiente proyecto: (-1 000 000,250 000,460 000,580 000)

irr(cf=c(-1000000,250000,460000,580000))
## [1] 0.1214158026
citation("FinCal")
## 
## To cite package 'FinCal' in publications use:
## 
##   Felix Yanhui Fan (2016). FinCal: Time Value of Money, Time
##   Series Analysis and Computational Finance. R package version
##   0.6.3. https://CRAN.R-project.org/package=FinCal
## 
## A BibTeX entry for LaTeX users is
## 
##   @Manual{,
##     title = {FinCal: Time Value of Money, Time Series Analysis and Computational
## Finance},
##     author = {Felix Yanhui Fan},
##     year = {2016},
##     note = {R package version 0.6.3},
##     url = {https://CRAN.R-project.org/package=FinCal},
##   }
## 
## ATTENTION: This citation information has been auto-generated from
## the package DESCRIPTION file and may need manual editing, see
## 'help("citation")'.