apunte 3

class: center, middle, inverse, title-slide

.title[
# apunte 3
]
.author[
### Pablo CP
]
.date[
### 2024-07-19
]

---

# Primera diapositiva

Este es un párrafo de `$\underline{\text{prueba}}$`.

``` r
 library(ggplot2)
 x=rnorm(10,5,1)
 y=rpois(10,0.5)

df=data.frame("var_indep"=x, "var_dep"=y)

g=ggplot(data=df,aes(x=var_indep,y=var_dep))+
  geom_point()+
  labs(x="Variable independiente", y="variable dependiente", litle = "Gráfica de prueba")+
  theme_minimal()
```

---

# Gráfica

``` r
    print(g)
```

---

# Insetar ecuaciones

Para insertar una ecuación se utiliza directamente código latex, por ejemplo:

`$$y=\dfrac{\sqrt{x^2-1}}{e^{3x}}$$`

---

#Insertar video de youtube

``` r
library(vembedr)
embed_youtube("NLFR8bkDEBA",height=300,ratio=c("4by3"))
```