R=La macroeconomia considera la economia de un país en una forma conjunta utilizando magnitudes colectivas o globales como la venta nacional, empleo, las inversiones o importaciones y exportaciones. Estudia el comportamiento del agregado de las unidades individuales de las que se encarga la micoreconomia.
Es el nivel de la actividad económica en el periodo actual, de acuerdo a esta herramienta, se mide desde tres enfoques:
La forma formal de expresarlo es \[Producto\_Total=Ingreso\_Total=Gasto\_Total\]
Por el lado del gasto el se puede escribir:
\[PIB=C+I+G+(X-M)\]
Expresa el valor monetario de la producción final de bienes y servicios de determinado país (zona), en determinado periodo de tiempo (generalmente un año).
EN=-12500.00
PNFE=13850.00
CCBP=PNFE+EN;CCBP
## [1] 1350
PNB=1000000.00
PIB=PNB-PNFE;PIB
## [1] 986150
La siguiente identidad es conocida como identidad de los usos del ahorro privado \[S=Spriv+Sgob\] \[Spriv=I+(-Sgob)+CCBP\]
Los usos que nos da este identidad son los siguientes
names<-c("Año","Mes","CIL","GOLFO","SMO","ChIL","KaMO")
data<-as.data.frame(matrix(c(
2000,01,1.88, 2.24, 2.01, 1.82, 1.93,
2001,02,2.00, 2.35, 2.15, 1.95, 2.06,
2002,03,2.34, 2.70, 2.49, 2.29, 2.43,
2003,04,2.52, 2.94, 2.73, 2.50, 2.55,
2004,05,1.93, 2.48, 2.13, 1.82, 1.90,
2005,06,2.00, 2.69, 2.19, 1.88, 1.98,
2006,07,3.33, 3.94, 3.60, 3.33, 3.42,
2007,08,4.79, 5.53, 5.05, 4.84, 4.95,
2008,09,3.68, 4.39, 3.88, 3.80, 3.81,
2009,10,3.45, 4.14, 3.69, 3.49, 3.53,
2010,11,6.33, 7.04, 6.50, 6.29, 6.35,
2011,12,6.60, 7.22, 6.95, 6.65, 6.77),ncol=7,byrow =T))
names(data)<-names
library(dplyr)
## Warning: package 'dplyr' was built under R version 3.3.3
data<-mutate(data,TotPeriodo=CIL+GOLFO+SMO+ChIL+KaMO)
for(i in 1:nrow(data)){
p0<-data$TotPeriodo[i]
eval(parse(text=paste0("data<-mutate(data,IP",i,"=(TotPeriodo/p0)*100) ")))
}
En la sigueinte tablas e presentan los datos
library(DT)
## Warning: package 'DT' was built under R version 3.3.3
datatable(data[,1:7])
En las siguientes tabla se presentan los indices de precios a distintos periosdos base.
datatable(data[,8:14])
datatable(data[,15:20])