# LABORATORIO DIRIGIDO 1 - PREGUNTA 2
# ***********************************
# se crean los vectores id y dn
# se crea el vector id con elementos del 0 al 4
# (1,2,3,4)
id <- 0:4
# se crea el vector dn de 0 al 0.8 con intervalos de 0.2
# (0, 0.2, 0.4, 0.6, 0.8)
dn <- seq(0, .8, by = .2)
# se crea la matriz bidimensional p usando los vectores id y dn,
# se calcula la función de distribución acumulada de cada elemento de la matriz p
p = outer(id, dn, function(x,y){pnorm(x+y)})
# se coloca nombres a las filas y columnas de la matriz p
dimnames(p) = list(z=id, "Primer lugar decimal de z " = dn)
# se redondea todos los valores de los elementos de la matriz p
p = round(p,5)
p
