f(x)={1b−a0,para a≤x≤b,,en cualquier otro caso
E(x)=(a+b)2
Var(x)=(b−a)212
α=Var(x)−−−−−−√
library(ggplot2)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(knitr)
options(scipen = 999) # Notación normal
a.min <- 120
b.max <- 140
altura <- 1 / (b.max -a.min)
(x)={1140−120=1200,para 120≤x≤140,,en cualquier otro caso ### ¿Cuál es la probabilidad de que el tiempo de vuelo se encuentre entre 120 y 130 minutos? #### ¿cuál es P(120≤x≤130)?
a <- 120
b <- 130
p.x <- altura * (b-a)
paste("La probabilidad de que el tiempo de vuelo se encuentre entre ", a , " y ", b, " minutos es del:", p.x * 100, "%")
## [1] "La probabilidad de que el tiempo de vuelo se encuentre entre 120 y 130 minutos es del: 50 %"
## [1] "La probabilidad de que el tiempo de vuelo se encuentre entre 120 y 130 minutos es del: 50 %"
p.x <- (b - a) * dunif(x = a, min = a.min, max = b.max)
p.x
## [1] 0.5
## [1] 0.5
a <- 128
b <- 136
p.x <- altura * (b-a)
p.x
## [1] 0.4
## [1] 0.4
paste("La probabilidad de que el tiempo de vuelo se encuentre entre ", a , " y ", b, " minutos es del:", p.x * 100, "%")
## [1] "La probabilidad de que el tiempo de vuelo se encuentre entre 128 y 136 minutos es del: 40 %"
## [1] "La probabilidad de que el tiempo de vuelo se encuentre entre 128 y 136 minutos es del: 40 %"
p.x <- (b - a) * dunif(x = a, min = a.min, max = b.max)
p.x
## [1] 0.4
## [1] 0.4
E(x)=(120+140)2=130
VE <- (a.min + b.max) / 2
paste("El valor esperado es de: ", VE)
## [1] "El valor esperado es de: 130"
## [1] "El valor esperado es de: 130"
Var(x)=(140−120)/212=33.33
varianza.x <- (b.max - a.min)^2 / 12
paste("La varianza es: ", round(varianza.x,2))
## [1] "La varianza es: 33.33"
## [1] "La varianza es: 33.33"
α=Var(x)−−−−−−√=33.33−−−−√=5.77
ds <- sqrt(varianza.x)
paste("La desviación estándard es igual a : ", round(ds, 2), " que significa que ese valor se dispersa conforme al valor medio esperado de ", VE)
## [1] "La desviación estándard es igual a : 5.77 que significa que ese valor se dispersa conforme al valor medio esperado de 130"
## [1] "La desviación estándard es igual a : 5.77 que significa que ese valor se dispersa conforme al valor medio esperado de 130"
A partir de la información otorgada calcule 1.1 la probabilidad de encontrar niveles de glucosa en sangre menores a 120 mg ml 1.2 la probabilidad de que el nivel de glucosa en sangre se encuentre entre 106 y 110 mgml 1.3 el porcentaje de diabéticos que tienen niveles comprendidos entre 90 y120 mg ml
pnorm(120,106,8)
## [1] 0.9599408
## [1] 0.9599408
pnorm(110,106,8)-pnorm(106,106,8)
## [1] 0.1914625
## [1] 0.1914625
pnorm(120,106,8)-pnorm(90,106,8)
## [1] 0.9371907
## [1] 0.9371907
(pnorm(27,23,5)-pnorm(21,23,5))*30
## [1] 13.30699
## [1] 13.30699