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)