R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

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

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

Enrique de Zavala Mancera A00828281 3 de Septiembre del 2022

Un estudio demostró que el uso de gasolina para autos compactos vendidos en EE UU está distribuido normalmente, con una media de 25.5 millas por galón (mpg) y una desviación estándar de 4.5 mpg ¿qué porcentaje de autos recorre 30 millas por galón o más?

Z= x-m / o = 20-25.5 / 4.5 = 1.00 P = 1-.08413 = .1587 Respuesta el 15.9% de autos

porcentaje

1- pnorm(30,25.5,4.5)
## [1] 0.1586553
qnorm(.95,25.5,4.5)
## [1] 32.90184

ejercicio 4 supangoamos qu elos diametros de tallo no soportados en la base de una especie particual de girasol tienen una distribucion normal con un diametro promedio de 35mm y una desviacion estandar de 3mm

#a cual es la probabilidad de que una planta de girasol tenga un diametro de base de más de 40 mm? #b. Si 2 plantas de girasol se seleccionan al azae cual es la probabilkidad de que ambas lnatan tengan un diametro de base de más de 40 mm? #c. Dentro de que limites esperaria usted que se encuentren los diametros bases, con prboobabilidwad de .95? #d. Que diameyto representa el 90avo percentil de la distribución de diametros?

z41 <- (40-35)/3

  1. .9525 1- pnorm(40,35,3) 1-.9525

  2. .0475^2 .00226

  3. x1 x2 = m +zö= 35 + 1.96(3) 35 -1.96(3) = 29.12 35 +1.96 (3) = 40.88

29.12 a 40.88

d 35+1.28(3)=

38.84

z<- (40-35)/3
p41<- 1-pnorm(40,35,3)
p42 <- p41 *p41
p42
## [1] 0.002283918
p43.li <- qnorm(.025,35,3)
p43.li
## [1] 29.12011
p43.ls <- qnorm(.975,35,3)
p43.ls
## [1] 40.87989
p44<-qnorm(.90,35,3)
p44
## [1] 38.84465
x <- 40 
promedio <- 35
desv_std <- 3
x_densidad<- seq(promedio-3*desv_std,promedio+3*desv_std,length=1000)
y_densidad <- dnorm(x_densidad,promedio,desv_std)
plot(x_densidad,y_densidad,type="l", lty=1, xlab = "x",ylab = "f(x)",main = " Funcion de densidad x", col = "red")

Funcion de Distribución

x_distribucion<- seq(promedio-3*desv_std,promedio+3*desv_std,length=1000)

y_distribucion<- pnorm(x_distribucion,promedio,desv_std)
plot(x_distribucion,y_distribucion,type="l", lty=1, xlab = "x",ylab = "f(x)",main = " Funcion de densidad x", col = "blue")

## PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.
Shiny applications not supported in static R Markdown documents