Publications by Rafael
Penguins Plot 2 Publish
R Markdown This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com. When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the...
591 sym 1 img
Statistical Analysis
Loading packages and datasets, and removing columns related to “id” pacotes <- c("readxl", "PerformanceAnalytics") lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") cars_test <- read_excel("cars_test.xlsx") cars_train <- cars_train[-1] cars_test <- cars_test[-1] Calculating and displaying the corre...
5695 sym 1 img
Neural Network Exercise
In this exercise, we will examine a car seller database and use a neural network model to estimate car prices. By leveraging the power of a neural network, we aim to create a predictive model that can learn complex patterns and relationships between car features and their respective prices. Loading packages pacotes <- c('tidyverse', 'lubridate...
939 sym 1 img
Excluindo São Paulo, qual o melhor estado para se vender sedãs de 4 portas automáticos da Chevrolet?
Carregando pacotes e dataset pacotes <- c("readxl", "dplyr", "ggplot2") lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") Análises Olhando os dez estados com os maiores volumes de observações para sedãs automáticos de 4 portas da Chevrolet: top_10_estados <- cars_train %>% filter(marca == "CHEVR...
1571 sym Python (2220 sym/7 pcs) 1 img
Considerando uma concessionária de luxo que vende apenas uma marca, qual seria a marca e o estado, excluindo São Paulo, mais adequados para abrir essa concessionária de luxo?
Carregando pacotes e dataset pacotes <- c("readxl", "dplyr") lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") Análises Usando table para olhar as marcas disponíveis: table(cars_train$marca) ## ## ALFA ROMEO AUDI BMW BRM CHERY ## 9 1698 ...
1544 sym Python (4453 sym/11 pcs)
Análises Estatísticas
Carregando pacotes e datasets, e eliminando as colunas referentes ao “id” pacotes <- c("readxl", "PerformanceAnalytics") lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") cars_test <- read_excel("cars_test.xlsx") cars_train <- cars_train[-1] cars_test <- cars_test[-1] Calculando e exibindo a matriz...
6632 sym 1 img
Excluindo São Paulo, qual o melhor estado para se vender sedãs de 4 portas automáticos da Chevrolet?
Carregando pacotes e dataset pacotes <- c("readxl", "dplyr", "ggplot2") lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") Análises Olhando os dez estados com os maiores volumes de vendas para sedãs automáticos de 4 portas da Chevrolet: top_10_estados <- cars_train %>% filter(marca == "CHEVROLET" & ...
1543 sym Python (2220 sym/7 pcs) 1 img
Considerando uma concessionária de luxo que vende apenas uma marca, qual seria a marca e o estado, excluindo São Paulo, mais adequados para abrir essa concessionária de luxo?
Carregando pacotes e dataset pacotes <- c("readxl", "dplyr" ) lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") Análises Usando table para olhar as marcas disponíveis: table(cars_train$marca) ## ## ALFA ROMEO AUDI BMW BRM CHERY ## 9 1698 ...
1514 sym Python (4454 sym/11 pcs)
Desconsiderando São Paulo, qual o melhor estado para se comprar carros de pessoa fisica que estajam com o ipva pago?
Carregando pacotes e dataset pacotes <- c("readxl", "dplyr", "ggplot2") lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") Análises Olhando os estados com os maiores números de carros com IPVAs pagos cujos vendedores sejam pessoa física: ipvas <- cars_train %>% group_by(estado_vendedor) %>% filte...
1277 sym Python (2123 sym/8 pcs) 1 img
Qual o melhor estado para se comprar uma picape com transmissçao automática e por quê?
Carregando pacotes e dataset pacotes <- c("readxl", "dplyr", "PerformanceAnalytics" ) lapply(pacotes, library, character.only = TRUE) cars_train <- read_excel("cars_train.xlsx") Análises Usando table para olhar os tipos disponíveis: table(cars_train$tipo) ## ## Cupê Hatchback Minivan ## ...
1696 sym Python (4968 sym/14 pcs)