Foro de discusión y soporte para usuarios de R

# 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)
}