R/indicadores_5.R

In lnribeiro/indicadorespne: Calculates the Plano Nacional de Educação (PNE) indicators

#' Calcula o indicador 5A: "Taxa de estudantes com proficiencia insuficiente em Leitura"
#'
#' @param df DataFrame com dados carregados da Avaliacao Nacional da Alfabetizacao
#' @param ano período da ANA
#' @param verbose exibe informacoes no console se True
#' @return Indicador 5A em porcentagem
#' @import dplyr
#' @export
calc_indicador_5A <- function(df, ano, verbose = TRUE) {
  if (ano %in% c(2014, 2016)) {
    count_lpo <-  df %>% filter(ID_MUNICIPIO == "2611606") %>% count(NIVEL_LPO)
    indicador_5A <- 100*(count_lpo[1,]$n)/sum(count_lpo[1:4,]$n)
  } else {
    stop("Período não suportado.")
  }

  if (verbose == TRUE) {
    print(sprintf("Nivel 1 Lingua Portuguesa Leitura: %f", count_lpo[1,]$n))
    print(sprintf("Nivel 2 Lingua Portuguesa Leitura: %f", count_lpo[2,]$n))
    print(sprintf("Nivel 3 Lingua Portuguesa Leitura: %f", count_lpo[3,]$n))
    print(sprintf("Nivel 4 Lingua Portuguesa Leitura: %f", count_lpo[4,]$n))
    print(sprintf("Indicador 5A: %f", indicador_5A))
  }

  return(indicador_5A)
}

#' Calcula o indicador 5B: "Taxa de estudantes com proficiencia insuficiente em Escrita"
#'
#' @param df DataFrame com dados carregados da Avaliacao Nacional da Alfabetizacao
#' @param ano período da ANA
#' @param verbose exibe informacoes no console se True
#' @return Indicador 5B em porcentagem
#' @import dplyr
#' @export
calc_indicador_5B <- function(df, ano, verbose = TRUE) {
  if (ano %in% c(2014, 2016)) {
    count_lpd <- df %>% filter(ID_MUNICIPIO == "2611606") %>% count(NIVEL_LPD)
    indicador_5B <- 100*(count_lpd[1,]$n + count_lpd[2,]$n + count_lpd[3,]$n)/sum(count_lpd[1:5,]$n)
  } else {
    stop("Período não disponível")
  }

  if (verbose == TRUE) {
    print(sprintf("Nivel 1 Lingua Portuguesa Escrita: %f", count_lpd[1,]$n))
    print(sprintf("Nivel 2 Lingua Portuguesa Escrita: %f", count_lpd[2,]$n))
    print(sprintf("Nivel 3 Lingua Portuguesa Escrita: %f", count_lpd[3,]$n))
    print(sprintf("Nivel 4 Lingua Portuguesa Escrita: %f", count_lpd[4,]$n))
    print(sprintf("Nivel 5 Lingua Portuguesa Escrita: %f", count_lpd[5,]$n))
    print(sprintf("Indicador 5B: %f", indicador_5B))
  }

  return(indicador_5B)
}

#' Calcula o indicador 5C: "Taxa de estudantes com proficiencia insuficiente em Matematica"
#'
#' @param df DataFrame com dados carregados da Avaliacao Nacional da Alfabetizacao
#' @param verbose exibe informacoes no console se True
#' @return Indicador 5C em porcentagem
#' @import dplyr
#' @export
calc_indicador_5C <- function(df, ano, verbose = TRUE) {
  if (ano %in% c(2014, 2016)) {
    count_mt <- df %>% filter(ID_MUNICIPIO == "2611606") %>% count(NIVEL_MT)
    indicador_5C <- 100*(count_mt[1,]$n + count_mt[2,]$n)/sum(count_mt[1:4,]$n)
  } else {
    stop("Período não disponível.")
  }

  if (verbose == TRUE) {
    print(sprintf("Nivel 1 Matematica: %f", count_mt[1,]$n))
    print(sprintf("Nivel 2 Matematica: %f", count_mt[2,]$n))
    print(sprintf("Nivel 3 Matematica: %f", count_mt[3,]$n))
    print(sprintf("Nivel 4 Matematica: %f", count_mt[4,]$n))
    print(sprintf("Indicador 5C: %f", indicador_5C))
  }

  return(indicador_5C)
}