Как бы я зациклил свой код, чтобы иметь 4 гистограммы вместо 1?
#r #r Вопрос: N <- 10000 ; maxbound = 20 one_side_normal <- function(N) { f <- numeric(N); for (i in 1:N) { X = rexp(1,rate=1); uniform = runif(1); while (uniform>exp((-X^2)…
#r #r Вопрос: N <- 10000 ; maxbound = 20 one_side_normal <- function(N) { f <- numeric(N); for (i in 1:N) { X = rexp(1,rate=1); uniform = runif(1); while (uniform>exp((-X^2)…