data-raw/tentando_criar_func.R

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

## code to prepare `tentando_criar_func` dataset goes here

usethis::use_data(tentando_criar_func, overwrite = TRUE)
usethis::use_git()
usethis::use_github()


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


contagem_nas <- function(basedados, coluna_nome){

    x <- basedados %>%
    dplyr::filter(is.na(basedados[,coluna_nome])) %>%
    dplyr::count()

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

}

contagem_nas(df, "piscina_qualidade")
devtools::load_all()
usethis::use_pipe()

usethis::use_git()
usethis::use_github()