Estoy trabajando en un código que haga muestras de diversas distribuciones de probabilidad con múltiples parámetros. Este es el código que tengo hasta ahora desarrollado
setting_n <- 2
# Normal samples ----
norm_settings <- list(
n = as.list( rep(setting_n,setting_n)),
mu = as.list( rnorm(setting_n, 100,50)),
sigma = as.list( abs(rnorm(setting_n, 5,10)) )
)
args_norm <- list(
n = norm_settings$n,
mean = norm_settings$mu,
sd = norm_settings$sigma)
normal_samples<- pmap(args_norm, rnorm)
al llegar a normal_samples el output consiste en una lista de 5 elementos en los que el primer subelemento es un vector con la muestra para esas condiciones. Quiero agregarle un segundo elemento, sea vector o lista, a esa lista que sea las condiciones en las que la muestra fue creada, es decir, que recoja n, mean y sd.
es decir un output parecido a:
> normal_samples
[[1]]
[1] 156.7611 159.4999
[2] c(args_norm$n,args_norm$mean,args_norm$sd )
[[2]]
[1] 27.96327 82.85313
[2] c(args_norm$n,args_norm$mean,args_norm$sd )
El problema es que ni consigo introducirlo en la lista en la posición que quiero, ni puedo extrear los elementos ordenadamente de args_norm con map ni de otras maneras, y menos aún parearlas en la lista que me corresponde