“Propongo que se demuestre este teorema o que se resuelva el problema. Si logran descubrir la prueba o la solución, reconocerán que cuestiones de este tipo no son inferiores a las más famosas de la geometría, ni en profundidad ni en dificultad ni en método de prueba.”
Pierre de Fermat
Pierre de Fermat 1
Mi nombre es Leonardo Frias Gomez, soy peruano y estudio en la Universidad Agraria de la Molina en Lima, Peru. A lo largo de mi vida siempre he sido un chico un poco timido, en el colegio me costaba hablar frente a todos sin embargo, siempre fui alguien sociable. No hago muchas bromas pero si me gusta reirme y pasar buenos momentos con mis amigos aunque la pandemia arruinó todo eso.
summary(cars)
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
Emoji 📊
library(vembedr)
embed_url("https://www.youtube.com/watch?v=e8aogkT4rpI&t=99s") %>% use_align("center") %>% use_start_time("3m32s")
# Cargando paquetes
library(pacman)
p_load(dplyr, ggplot2, datos, kableExtra, knitr,
flextable, foreign, gganimate)
library(readxl)
datos <- read_excel("data.xls", sheet = 1)
datos <- data.frame(
situacion = c("Normal", "Riesgo academico", "Peligro academico", "Separado"),
N = c(250, 38, 19, 1)
)
# Calcular el total y los porcentajes
total <- sum(datos$N)
datos <- datos %>%
mutate(porcentaje = (N / total) * 100)
# Mostrar los datos
print(datos)
## situacion N porcentaje
## 1 Normal 250 81.1688312
## 2 Riesgo academico 38 12.3376623
## 3 Peligro academico 19 6.1688312
## 4 Separado 1 0.3246753
p <- ggplot(datos, aes(x = situacion, y = porcentaje, fill = situacion)) +
geom_bar(stat = "identity") +
labs(title = 'Porcentaje por Situación', y = 'Porcentaje', x = 'Situación') +
theme_minimal() +
theme(legend.position = "none") +
ylim(0, 100)
p
# Añadir la animación
anim <- p + transition_states(situacion, transition_length = 2, state_length = 1) +
ease_aes('cubic-in-out')
El total de alumnos matriculados de la carrerra de Estadística informática en el semestre 2023-I ha sido de 308.
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.
Pierre de Fermat Beaumont-de-Lomagne, Francia; 17 de agosto de 1601,Castres, Francia; 12 de enero de 1665 fue un jurista y matemático francés denominado por el historiador de matemáticas escocés, Eric Temple Bell, con el apodo de «príncipe de los aficionados». Fermat fue junto con René Descartes y Johannes Kepler uno de los principales matemáticos de la primera mitad del siglo XVII.↩︎