- Medidas de Forma : Asimetría - enero 3, 2025
- Medidas Estadísticas de Dispersión Relativa - junio 11, 2024
- Modelos SARIMA(Arima Estacionales).¿Qué son y cómo usarlos para Predecir? - enero 4, 2024
Codigo R
##### VIDEO MEDIA GEOMETRICA Y ARMONICA
install.packages(«psych») # Install psych package
library(«psych»)
x<- c(1,3,9)
geometric.mean(x)
# MANUAL
exp(mean(log(x))) # Compute geometric mean manually
# Ejemplo
# Fondo de inversión da la siguiente rentabilidad los siguientes
# 5 años 2016,2017,2018,2019,2020
# Rentabilidad = 6% , 5% , 7% , 10%, 12%
#a) manteniendo el capital
rentab<-c(0.06,0.05,0.07,0.1,0.12)
rentab<-c(1.06,1.05,1.07,1.1,1.12)
#Capital Final= (1+r)^5*CapInicial
# (1+r)^5 = (1.06*1.05*1.07*1.1*1.12)
# donde 1+r es la media geometrica
geometric.mean(rentab)
exp(mean(log(rentab)))
1.079687-1
700 * (1.079687^5 )
#1027.04
#b) Sin mantener el capital
#CF = C0 + r*C0 + r*C0 …..
#podemos hacer la media aritmética
(0.06+ 0.05+0.07+0.1+0.12)/5
0.08*5
700* 1.4
#Cf = 980
#(r)*5