Tarea 1.7

Creamos una formula para toda función Normal Estandar con media m y desviación estandar s.

echo = TRUE

library(knitr)
library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

GrafNormal <- function(m,s,acolor="blue")
  {
  lb <- m-3*(s)
  ub <- m+3*(s)
  x <- seq(lb,ub,0.001)
  y <- dnorm(x,m,s)
  plot(x,y, cex=0.5,pch=14,col=acolor,main="Función Normal Estandar", xlab="Valores de X", ylab="Probabilidad en Y")
}

Utilizamos nuestra función para los siguientes casos

Graficar N(2,1.5) cambiando el color (usamos rojo en este caso)

Graficar N(3,0.5) en color rosa

Graficar N(11.8,3.5) en color verde

Creamos una función la cual pueda graficar 2 funciónes al mismo tiempo con el fin de comparar su comportamiento.

GrafNormal2 <- function(m1,s1,m2,s2,acolor="blue")
  {
  lb <- min(m1,m2)-3*(max(s1,s2)) 
  ub <- max(m1,m2)+3*(max(s1,s2))
  x <- seq(lb,ub,0.001)
  y1<- dnorm(x,m1,s1)
  y2 <-dnorm(x,m2,s2)
  plot(x,y1, cex=0.9,pch=19,col=acolor, ylim=c(0,max(y1,y2)),main="Función Normal Estandar con 2 Funciones", xlab="Valores de X", ylab="Probabilidad en Y")
  lines(x,y2,lty=4,cex=3, col="purple")
}

Graficamos los siguientes casos

N(0,1) vs N(2,1.5) (rojo)

N(1,0.5) vs N(1,1.5) (verde)

N(0,3) vs N(2,1.5) (rosa)

GrafNormal2(0,1,2,1.5,acolor="red")

GrafNormal2(1,0.5,1,1.5,acolor="green")

GrafNormal2(0,3,2,1.5,acolor="pink")

Graficamos 3 funciones normales color verde obscuro y 3 pares de normales simultáneas e imprimimos en una matriz de 2X3 ordenadas por filas.

par(mfrow=c(2,3))
GrafNormal(2,1.5,acolor="red")
GrafNormal(3,0.5,acolor="pink")
GrafNormal(11.8,3.5,acolor="green")
GrafNormal2(0,1,2,1.5,acolor="red")
GrafNormal2(1,0.5,1,1.5,acolor="green")
GrafNormal2(0,3,2,1.5,acolor="pink")