v <- c()
m <- c(100,120,150,180)
dp<-c(20,15,10,25)
n = 1
for (i in m) {
  v <- c(v, rnorm(1000, i,dp[n]))
  n=n+1
}
m <- matrix(v, 1000)

> On 4 Jul 2022, at 15:02, Diogo Jerônimo por (R-br) <r-br@listas.c3sl.ufpr.br> 
> wrote:
> 
> dp<-c(20,15,10,25)

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código 
mínimo reproduzível.

Responder a