R/funcao contagem nas.R

In ViniciusJacobs/AMES: What the Package Does (One Line, Title Case)

#' Contagem de NA's
#'
#' A funçao retorna o número de NA´s dentro de um vetor do data.frame e sua proporção
#'
#' @param base_dados Data.Frame em análise
#' @param nome_variável Nome da coluna entre (" ")
#'
#' @return Valor de NAs e valor proporcional dos NA's sobre o total de elementos
#'
#' @export
#'
#'

library(magrittr)
df<-readr::read_rds("data/ames.rds")

contagem_nas <- function(base_dados, nome_variável){

  x <- base_dados %>%
    dplyr::filter(is.na(base_dados[,nome_variável])) %>%
    dplyr::count()

  y <- nrow(base_dados)
  print(x[[1]])
  print(paste("A proporçao da base total é:",round((x[[1]]/y),6)))

}

contagem_nas(df, "piscina_qualidade")