Con esta serie de videos aprenderemos a programar con el entorno de RStudio. En esta ocasión vemos como exportar datos desde R a Excel y Csv

https://youtu.be/9TF_l2n_pJM

CÓDIGO R EN EL VIDEO

#install.packages("quantmod")
library(quantmod)
#install.packages("tseries")
library(tseries)
#install.packages("forecast")
library(forecast)
#install.packages("TSA")
library(TSA)
#install.packages("Quandl")
library(Quandl)

#1. Descargamos las variables que vamos a usar

getSymbols("INDPRO",src="FRED")  #Industrial Production Index
getSymbols("UMCSENT",src="FRED") #University of Michigan: Consumer Sentiment
getSymbols("FEDFUNDS",src="FRED") #tasa interes fondos federales
getSymbols("CCRETT01USM661N",src="FRED") #Tipo de cambio efectivo IPC
getSymbols("M2NS",src="FRED")     #Stock de dinero M2
getSymbols("M1NS",src="FRED")     #STOCK DE DINER M1
getSymbols("TB3MS",src="FRED")    #tasas del tesoro a 3 mese
getSymbols("TB6MS",src="FRED")    #tasas del tesoro a 6 mese
getSymbols("PAYEMS",src="FRED")   # Des trabajadores no rurales
getSymbols("BOPGSTB",src="FRED")  #Balance cuenta, Diferencia entre exp e imp
getSymbols("EXUSUK",src="FRED")   #GBP mensual

#m1=M1NS["1959-01::2008-03"]


m1=M1NS["1959-01::2022-06"]
m2 = M2NS["1959-01::2022-06"]
plot(m1,type="l")
plot(m2,type="l")

oferta_dinero <- data.frame(m1,m2)

#install and load writexl package
install.packages('writexl')
library(writexl)

#excel

write_xlsx(oferta_dinero, "C:/Users/Victor-PC/Desktop/oferta_dinero.xlsx")


#csv

write.csv(oferta_dinero, "C:/Users/Victor-PC/Desktop/oferta_dinero.csv", row.names=FALSE)


write.csv2()
?write.csv

Por Victor A.Rico

Diplomado en Ciencias Empresariales y Operador del Mercado Español de Futuros y Opciones

Deja una respuesta

Tu dirección de correo electrónico no será publicada.