Diplomado en Ciencias Empresariales y Operador del Mercado Español de Futuros y Opciones
Últimas entradas de Victor A.Rico (ver todo)
- 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
- ¿Qué es el RUIDO BLANCO ? Econometría en R - junio 21, 2023
En este tutorial veremos como calcular los logaritmos en R studio, así como volver al valor original si hemos hecho una transformación logarítmica con anterioridad
CÓDIGO EN R
#Video Respuesta Logartimos
# Calcular el Antilogartimo en R
# Logartimo natural
# Logartimo en base 10
###☻ EJEMPLOS
#1 LOG 10
valor_inicial = 7
log_valor_inicial = log10(valor_inicial)
log_valor_inicial
# QUeremos volver atrás y obtener el antilog
10^log_valor_inicial
# Ejemplo con el Logartimo Natural o Neperiano (e)
valor_inicial = 7
log_n_inicial <- log(valor_inicial)
log_n_inicial
# obtener el antilogaritmo
exp(log_n_inicial)
#seria igual a base 2.71828182
2.71828182^log_n_inicial
##EJEMPLO 3 usando otra base distintas
valor_inicial <- 7
# usar la base 5 - log5 (7)
base<- 5
log_base <- log(valor_inicial,base)
log_base
#calculamos antilog
base^log_base
7^5
#####
# DSCARGA DE DATOS
install.packages("quantmod")
library(quantmod)
install.packages("tseries")
library(tseries)
#install.packages("fImport")
library(fImport)
getSymbols("EURUSD=X",quote="Close",from ="2019-01-01",periodicity = "daily")
getSymbols("GBPUSD=X",quote="Close",from ="2019-01-01",periodicity = "daily")
getSymbols("EURGBP=X",quote="Close",from ="2019-01-01",periodicity = "daily")
getSymbols("USDNOK=X",quote="Close",from ="2019-01-01",periodicity = "daily")
getSymbols("USDSEK=X",quote="Close",from ="2019-01-01",periodicity = "daily")
getSymbols("BTC-USD",quote="Close",from ="2019-01-01",periodicity = "daily")
getSymbols("ETH-USD",quote="Close",from ="2019-01-01",periodicity = "daily")
getSymbols("LTC-USD",quote="Close",from ="2019-01-01",periodicity = "daily")
#getSymbols("LTC-USD",quote="Close",from ="2012-01-10",periodicity = "daily")
eurusd<- `EURUSD=X`[,4] # PRECO DE CIERRE
gbpusd<- `GBPUSD=X`[,4]
eurgbp<- `EURGBP=X`[,4]
usdnok<- `USDNOK=X`[,4]
bitcoin<- `BTC-USD`[,4]
ethereum<- `ETH-USD`[,4]
litecoin <- `LTC-USD`[,4]
#1. mfrow : Los ordena por filas
plot(bitcoin,type="l")
log_bitcoin<-log(bitcoin)
plot(log_bitcoin)
antilog_bitcoin <- exp(log_bitcoin)
plot(antilog_bitcoin)
# 7,8,9
#○diferencias