Tarea1.7

Graficas Normales

GrafNormal <-function(m, s, acolor) {
  lb <- m-3*s
  ub <- m+3*s
  x <- seq(lb,ub, by=0.001)
  y <- dnorm(x, m, s)
  plot(x,y, pch=20, cex=0.5, col= acolor)
}

Graficas Normales:

GrafNormal(2, 1.5, acolor="lightblue")

GrafNormal(3,0.5, "magenta2")

GrafNormal(11.8, 3.5, "green4")

Graf2Norm <- function(m1,s1,m2,s2, acolor){
  lb <- min(m1,m2)-3*(max(s1,s2))
  ub <- max(m1,m2)+3*(max(s1,s2))
  x <- seq(lb,ub, by=0.001)
  y1 <- dnorm(x,m1,s1)
  y2 <- dnorm(x,m2,s2)
  plot(x,y1, pch=20, cex=0.5, col= acolor, ylim=c(0,max(y1,y2)))
  lines(x,y2, lty=7, cex=3, col="blue3")
  
}

Graficas normales simultaneas:

Graf2Norm(0,1,2,1.5, "lightblue4")

Graf2Norm(1,0.5,1,1.5, "orange")

Graf2Norm(0,3,2,1.5, "yellow2")

Graficos ordenados por filas:

par(mfrow=c(2,3))
GrafNormal(2, 1.5, acolor="green4")
GrafNormal(3,0.5, "green4")
GrafNormal(11.8, 3.5, "green4")
Graf2Norm(4,1,6,0.2, "lightblue4")
Graf2Norm(2,2,1,3, "orange")
Graf2Norm(4,2,2,0.5, "yellow2")