Generar datos con asimetría negativa

Question

Dar un enfoque para generar 50 elementos entre 1 y 1000 con asimetría negativa.

Answer 1

Una forma sencilla:

Generar U1 y U2 independientes que sean uniformes en el rango requerido. Tome el mayor de los dos. Esto dará una extracción de una distribución discreta sesgada a la izquierda.

Repite tantas veces como quieras.

Ejemplo en R:

x <- replicate(50,max(sample(1000,2,replace=TRUE)))
x 
[1] 676 417 513 449 952 424 864 731 801 623 989 596 318 541 607 389 202 639 721
[20] 927 828 289  77 525 927 861 425 948 633 910 835 526 734 914 937 349 625 713
[39] 959 420 738 824 812 697 824 745  76 913 803 650

(Por supuesto, en R podría simplemente especificar un conjunto creciente de p's en una sola llamada a sample pero este enfoque es fácil en una variedad de idiomas)