Presentación

class: center, middle, inverse, title-slide

.title[
# Presentación
]
.author[
### JSalasMtz
]
.date[
### 2024-07-19
]

---

# Primer diapositiva

Este es una presentacion de `$\underline{\text{prueba}}$`.

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

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

g = ggplot(data = df,aes(x=var_ind,y=var_dep))+
  geom_point()+
  labs(x = "var ind", y = "var dep", title = "Gráfica")+
  theme_minimal()
```

---

## Gáfica.

``` r
print(g)
```

---

## Ecuaciones

Para escribir ecuaciones de latex se usa el signo de peso para inline y doble para centrado
`$$y = \dfrac{\sqrt{x^{2}-4}}{e^{3x}}$$`
`\begin{eqnarray}
y_{1}&=&\sin\left(\tfrac{x+\pi}{x-\pi}\right)\\
y_{2}&=&3x^{2}+6x-5
\end{eqnarray}`
`\begin{eqnarray}
-5\leq&\dfrac{6x-8}{7}&\leq9\\
-35\leq&6x-8&\leq63
\end{eqnarray}`
`\begin{equation}
y_{3}=\sinh\left(\tfrac{x+\pi}{x-\pi}\right)\\
y_{4}=3x^{2}+6x-5
\end{equation}`
`\begin{multline}
y_{3}=\sinh\left(\tfrac{x+\pi}{x-\pi}\right)\\
y_{4}=3x^{2}+6x-5
\end{multline}`

---
### Continuando

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

<div class="vembedr">
<div>
<iframe src="https://www.youtube.com/embed/staL7w-eT58" width="400" height="300" frameborder="0" allowfullscreen data-external="1"></iframe>
</div>
</div>
---