Publications by Lisset A01284611
AE - Exploración de datos
library(nycflights13) library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.8 ✔ dplyr 1.1.0 ## ✔ tidyr 1.2.1 ✔ stringr 1.4.1 ## ✔ rea...
1603 sym R (11729 sym/26 pcs)
Comandos Basicos
Asignacion de Variables x <- 3 y <- 2 Impresion de Resultados x ## [1] 3 y ## [1] 2 Operciones Aritmeticas suma <- x+y suma ## [1] 5 resta = x-y resta ## [1] 1 multi <- x*y multi ## [1] 6 division <- x/y division ## [1] 1.5 division_entera <- x%/%y division_entera ## [1] 1 residuo <- x%%y residuo ## [1] 1 potencia <- x^y potencia ## [1] 9 Func...
483 sym 1 img
Act 2. Arca Continental
Librerias Utilizadas library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(tidyverse) ## ── Attaching packages ## ──────────────...
871 sym R (17669 sym/119 pcs) 14 img
Comandos Básicos
Asignación de Variables x <- 3 y <- 2 Impresión de Resultados x ## [1] 3 y ## [1] 2 Operciones Aritméticas suma <- x+y suma ## [1] 5 resta = x-y resta ## [1] 1 multi <- x*y multi ## [1] 6 division <- x/y division ## [1] 1.5 division_entera <- x%/%y division_entera ## [1] 1 residuo <- x%%y residuo ## [1] 1 potencia <- x^y potencia ## [1] 9 F...
484 sym 2 img
Renta de Bicis
Entendiendo la base de datos dataf <- read.csv("/Users/lishdz/Desktop/R/rentadebicis.csv") resumen <- summary(dataf) resumen ## hora dia mes año ## Min. : 0.00 Min. : 1.000 Min. : 1.000 Min. :2011 ## 1st Qu.: 6.00 1st Qu.: 5.000 1st Qu.: 4.000 1st Qu.:2011 ## Median :12....
1007 sym 2 img
Titanic
dataf <- read.csv("/Users/lishdz/Desktop/R/titanic.csv") summary(dataf) ## pclass survived name sex ## Min. :1.000 Min. :0.000 Length:1309 Length:1309 ## 1st Qu.:2.000 1st Qu.:0.000 Class :character Class :character ## Median :3.000 Median :0.000 Mode :character ...
565 sym R (3745 sym/11 pcs) 3 img
Seguros
Entendiendo los datos dataf <- read.csv("/Users/lishdz/Desktop/R/seguros.csv") resumen <- summary(dataf) resumen ## ClaimID TotalPaid TotalReserves TotalRecovery ## Min. : 777632 Min. : 0 Min. : 0 Min. : 0.00 ## 1st Qu.: 800748 1st Qu.: 83 1st Qu.: 0 1st Qu.: 0.00...
578 sym Python (98485 sym/10 pcs) 1 img
Banco Mundial
GDP de México library(wbstats) gdp <- wb_data(country = "MX", indicator = "NY.GDP.PCAP.CD", start_date = 1973, end_date = 2022) summary(gdp) ## iso2c iso3c country date ## Length:49 Length:49 Length:49 Min. :1973 ## Class :character Class :character Class :chara...
633 sym R (3383 sym/10 pcs) 5 img
Cáncer de Mama
datac <- read.csv("/Users/lishdz/Desktop/R/cancer_de_mama.csv") Árbol de Decisiones library(rpart) arbol <- rpart(formula = diagnosis ~., data = datac) arbol ## n= 569 ## ## node), split, n, loss, yval, (yprob) ## * denotes terminal node ## ## 1) root 569 212 B (0.62741652 0.37258348) ## 2) radius_worst< 16.795 379 33 B (0.91292...
928 sym R (911 sym/6 pcs) 4 img
Tendencias Globales
library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.8 ✔ dplyr 1.0.10 ## ✔ tidyr 1.2.1 ✔ stringr 1.4.1 ## ✔ readr 2.1.2 ...
541 sym R (618 sym/8 pcs) 2 img