# \donttest{
input_nstud23 <- Get_nstud(2023, filename ="ALUCORSOINDCLASTA", autoAbort = TRUE)
Registry23 <- Get_Registry(2023, autoAbort = TRUE)
School2mun23 <- Get_School2mun(2023, input_Registry = Registry23, autoAbort = TRUE)
nstud23.aggr <- Group_nstud(Year = 2023, data = input_nstud23,
input_Registry = Registry23, input_School2mun = School2mun23,
autoAbort = TRUE)
input_nteachers23 <- Get_nteachers_prov(2023, autoAbort = TRUE)
teachers4stud <- Group_teachers4stud(Year = 2023,
input_nteachers = input_nteachers23,
input_nstud_aggr = nstud23.aggr, autoAbort = TRUE)
teachers4stud[, -c(1, 2, 10, 11)]
summary(teachers4stud)
# }
Run the code above in your browser using DataLab