#Primer script de la calse de probabilidad y estadistica
#Para ingenieria en software
#26/08/2020
#Santana Celaya Alec Demian

#Establecer folder de trabajo
setwd("~/Probabilidad Y Estadistica")

#Cargar tidyverse
library(tidyverse)
## -- Attaching packages ------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.1     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0
## -- Conflicts ---------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
#primer grafica de la materia con R
#Para esto vamos a utilizar la base de datos llamadas: mpg
#mog significa millas por galon
# usando ggplot
#displ = metraje
#hwy = eficiencia (millas por galon)
ggplot(data = mpg ) +
  geom_point(mapping = aes(x = displ, y = hwy))