# m media
#debes incluir las librerias foreach y doParallel, ya que este metodo esta escrito en paralello
# x cantidad a generar
invExponencial<-function(m)
{
numeroa<-runif(x)
c<-iniciaCluster()
writeLines("Generacion de observaciones aleatorias por el metodo de la trasformada inversa de la funcion de distribucion exponencial")
l<- length(numeroa)
x<-foreach(i=1:l, .combine = c) %dopar%
{
z<- -1*m*log(numeroa[i])
writeLines(paste("Se genero la observacion aleatoria: ",toString(z),sep=" "))
z
}
x
stopCluster(c)
}