Publications by Nicolas Leon
Simulación: Áreas bajo curvas
En este ejercicio se graficaron 100000 puntos ubicados bajo la curva que representa 1/4 de la elipse con centro en el origen y semiejes mayor y menor con medidas de 2 y 1, correspondientemente. set.seed(1073173761) n = 10000 x = runif(n, 0, 2) y = runif(n, 0, 1) a=2 b=1 elipse = (((x^2)/(a^2))+((y^2)/(b^2))<=1) plot(x,y, pch= 16, asp = T...
1213 sym R (1848 sym/23 pcs) 5 img
Funciones: Primeros ejercicios
Función que calcule la correlación entre datos de 2 variables, tomando pares de datos de 5 en 5: set.seed(1073173761) rto<-sort(rnorm(100,3,0.3));rto ## [1] 2.348633 2.353273 2.475000 2.508870 2.522711 2.530918 2.556943 ## [8] 2.586235 2.642035 2.663425 2.673727 2.693504 2.716741 2.740925 ## [15] 2.741268 2.766055 2.766865 2.770296 2....
512 sym R (3953 sym/11 pcs)
Taller Funciones
Ejercicio 1.1 \[ \sum_{i=0}^{100}\frac{1}{2^i} \] El codigo usado para crear la funcion es el siguiente: sum_1<-function(i){ if(i<0){print("El valor ingresado no puede ser menor que 0")} suma<-0 sumatoria<-NULL for (j in seq(0,i,1)){ x<-1/(2^j) suma<-suma+x sumatoria[j]<-suma } return(sumatoria) } El progreso d...
4055 sym R (16630 sym/124 pcs) 14 img
Distribuciones de probabilidad
1) Distribución normal Ejercicio con datos de materia orgánica del suelo (MOS). Primero se generan unos datos aleatorios condistribución normal definiendo unos parámetros básicos pedidos por la función rnorm: set.seed(2021) MOS<- round(rnorm(100,1.25,0.15),2); MOS ## [1] 1.23 1.33 1.30 1.30 1.38 0.96 1.29 1.39 1.25 1.51 1.09 1.21 1.28 1....
6276 sym R (14947 sym/227 pcs) 13 img
Distribución Beta
Se trabajan unos datos de proporción de germinación con una distribución beta. Total de datos: 80, parámetros a y b, 5 y 0,2 respectivamente. set.seed(2022) pgerm=rbeta(80,5,0.2) mean(pgerm) ## [1] 0.9657285 hist(pgerm) abline(v=mean(pgerm),lty=2,col="red",lwd=2) var(pgerm) ## [1] 0.004259226 Valor esperado \[E[X]=\frac{\alpha}{\alpha+\be...
1081 sym R (150 sym/5 pcs) 1 img
Distribución Beta: Ejercicio de aplicación
En una ingenio de café hacen la recepción de bultos de café de aproximadamente 60 Kg para llevarlos a procesamiento. Esté café debe cumplir el requerimiento en proporción de granos de maduros y grados verdes ya que la presencia de estos últimos afecta la calidad aromática del producto final. Al realizar el muestreo destructivo en un lote ...
1942 sym R (17588 sym/49 pcs) 3 img 1 tbl
Pruebas de ajuste estadístico
Para estos ejercicios se usaron funciones para permitir hacer pruebas de ajuste estadístico que permitieran determinar si uno datos determinados se ajustaban a un tipo específico de distribución estadística. Primero se generaron los vectores que contendrían los datos de diferentes distribuciones estadísticas: set.seed(1073173761) expo<-ro...
1674 sym R (3203 sym/33 pcs)