Publications by Javier Ayala-A00823958
Segmentación de Mercado
Librerías library(dplyr) library(factoextra) library(ggplot2) library(cluster) library(data.table) Ventas Importar base de datos Como observación, en este análisis se omite el paso de entender base de datos ya que esta base de datos es la exportada al final deel ejercicio Herramientas para la Limpieza de Datos. setwd("C:\\Users\\javaw\...
19399 sym R (7934 sym/52 pcs) 9 img
Walmart
Objetivo: Ayudar a Walmart a predecir sus ventas Librerias library(rsconnect) library(janitor) library(dplyr) library(wordspace) library(tidyverse) Insertar Bases de Datos train<-read.csv("C:\\Users\\javaw\\OneDrive - Instituto Tecnologico y de Estudios Superiores de Monterrey\\7mo Semestre\\Modulo 3\\train.csv") test<-read.csv("C:\\Users...
4877 sym R (10275 sym/36 pcs) 1 img
Arbol de Decisión
Titanic Librerias library(rpart) library(rpart.plot) Importar base de datos bd<-read.csv("C:\\Users\\javaw\\OneDrive - Instituto Tecnologico y de Estudios Superiores de Monterrey\\7mo Semestre\\Modulo 3\\titanic.csv") Entender base de datos summary(bd) ## ï..pclass survived name sex ## Min. :1.0...
5156 sym R (9127 sym/22 pcs) 6 img
Comandos Básicos
Símbolos #^ #~ Asignación de variables x<-3 y<-2 Impresión de resultados x ## [1] 3 y ## [1] 2 Operaciones aritméticas suma <- x + y suma ## [1] 5 resta <- x - y resta ## [1] 1 division <- x/y division ## [1] 1.5 division_entera <- x%/%y division_entera ## [1] 1 residuo <- x%%y residuo ## [1] 1 potencia <- x ^ 2 potencia ## [1] 9 ...
4818 sym 2 img
Jingle Bells
Asignación de notas devtools::install_github("keithmcnulty/Rmusic", build_vignettes = TRUE) jbells_pitch <- paste( "E E E", "E E E", "E G C D", "E", "F F F F", "F E E E", "E D D E", "D G", "E E E", "E E E", "E G C D", "E", "F F F F", "F E E E E", "G G F D", "C", "G3 E D C", "G3", "G3 G3 ...
4765 sym 1 img
Estadísticas
Importar bases de datos poblacion<-read.csv("C:\\Users\\javaw\\OneDrive - Instituto Tecnologico y de Estudios Superiores de Monterrey\\7mo Semestre\\Modulo 3\\poblacion.csv") muestra<-read.csv("C:\\Users\\javaw\\OneDrive - Instituto Tecnologico y de Estudios Superiores de Monterrey\\7mo Semestre\\Modulo 3\\muestra.csv") Tamano de la Poblacion ...
8120 sym Python (1422 sym/33 pcs) 2 img
Clima
Información del Automated Surface Observing System (AOS) Librerías library(riem) library(tidyverse) library(lubridate) library(ggplot2) library(plotly) Buscar la red (país), ejemplo México y copiar CODE. view(riem_networks()) #MX_ASOS Buscar la estación (ciudad)-Ejemplo: Monterrey y copiar ID view(riem_stations("MX__ASOS")) #MMMY O...
4083 sym R (11676 sym/18 pcs) 3 img
Indicadores del Banco Mundial
Libraries library(WDI) library(wbstats) library(tidyverse) library(ggplot2) Informacion de Mexico gdp_data <- wb_data(country = "MX",indicator="NY.GDP.PCAP.CD",start_date = 1973,end_date = 2022) summary(gdp_data) ## iso2c iso3c country date ## Length:49 Length:49 Length:49 ...
2507 sym R (3216 sym/11 pcs) 5 img
Herramientas para Limpieza de Bases de Datos
A la base de datos se le hicieron los siguientes cambios: 1. Se cambió el formato a fecha corta. 2. Se duplicaron los primeros 5 registros. 3. Se cambió le formato a hora (español México). 4. Se cambió el formato a código de barras (para que salga completo). 5. Se guardó como CSV UTF 8 (Delimitado por comas). Cargar librerias libra...
9448 sym R (41606 sym/58 pcs) 3 img
Modelo Predictivo
Renta de Bicicletas Importar base de datos setwd("C:\\Users\\javaw\\OneDrive - Instituto Tecnologico y de Estudios Superiores de Monterrey\\7mo Semestre\\Modulo 3") df <- read.csv("rentadebicis.csv") head(df,10) ## ï..hora dia mes aÃ.o estacion dia_de_la_semana asueto temperatura ## 1 0 1 1 2011 1 6 ...
10958 sym R (70569 sym/26 pcs) 2 img