library(pacman)
p_load(dplyr, ggplot2, datos, kableExtra, knitr, 
       flextable, foreign, gganimate, vembedr, stringr, devtools, tinytex, packrat, rsconnet, plotly, png, readr, lubridate, gifski)
options(scipen = 999)
options(digits = 3)

PREGUNTA 1

“La envidia es una declaración de inferioridad.”

Napoleón Bonaparte

“La mejor forma de cumplir con la palabra empeñada es no darla jamás”

Napoleón Bonaparte

PREGUNTA 2

Uno de mis hobbies favoritos es el running. El running
consiste en correr se requiere pocos implementos deportivos.
Me gusta el runnning por ls siguientes razones:

  1. Me libera del estrés.
  2. Me ayuda a ser disciplinado al mantener un horario de entreno. ## PREGUNTA 3

RUNING
Pagina web para encontar mas acerca del running.

Revista para runners link de la web https://www.runnersworld.com/e

embed_youtube("JE8YyaYLudc")

PREGUNTA 4

anio<-c(2018,2019,2020,2021,2022,2023)
postulantes<-c(2100,2050,2100,1800,2400,2500)
dataPRO<-data.frame(anio, postulantes)
tabla <- flextable(dataPRO)
tabla

anio

postulantes

2,018

2,100

2,019

2,050

2,020

2,100

2,021

1,800

2,022

2,400

2,023

2,500

PREGUNTA 5

Presente el siguiente párrafo:
“En los últimos seis años el número de postulantes promedio ha sido de 2158.333 años”.

PREGUNTA 6

PREGUNTA 7