* Clase 1 - Regulacion economica: Mercado laboral 

/* En este do-file replicamos los datos de:
1. PT:  Poblacion total
2. PET: Poblacion en edad de trabajar
3. FT:  Fuerza de trabajo
4. OCI: Ocupados
5. DSI: Desocupados
*/

* Limpiamos la memoria
cls
clear all
set more off, permanently

* Establecemos el directorio de trabajo

* Calculemos las variables de interes para los meses que nos interesan del año 2023

* Cargamos la base de datos de para el mes de enero del 2023
use "$original/202301Caracteristicasgenerales.dta", clear
gen poblacion = 1 
gen     pet = 1 if P6040>=15
*replace pet = 0 if pet==.
		
* Poblacion total
table poblacion[iw=FEX_C18]
* Poblacion en edad de trabajar
table pet[iw=FEX_C18]
	
*Definimos una matriz vacia con 6 columnas y la vamos a ir llenando progresivamente
mat define a=J(10,1,.)
matrix colnames a = Enero
matrix rownames a = PT PET FT Ocu Des Ina %PET TGP TO TD

tab poblacion [iw=FEX_C18]
return list
mat a[1,1]=r(N)
mat list a

tab pet[iw=FEX_C18]
return list
mat a[2,1]=r(N)
mat list a


use "$original/202301Fuerzadetrabajo.dta", clear
tab FT[iw=FEX_C18]
return list
mat a[3,1]=r(N)
mat list a

use "$original/202301Ocupados.dta", clear
tab OCI[iw=FEX_C18]
return list
mat a[4,1]=r(N)
mat list a

use "$original/202301Noocupados.dta", clear
tab DSI[iw=FEX_C18]
return list
mat a[5,1]=r(N)
mat list a

mat a[6,1]=a[2,1]-a[3,1]
mat list a

* % poblacion en edad de trabajar
mat a[7,1] = a[2,1]/a[1,1]*100		
mat list a

* Tasa general de participacion
mat a[8,1] = a[3,1]/a[2,1]*100		
mat list a

* Tasa de ocupacion
mat a[9,1] = a[4,1]/a[2,1]*100		
mat list a

* Tasa de desocupacion
mat a[10,1] = a[5,1]/a[3,1]*100		
mat list a
