Просто протестируйте его, используя set.seed()
:
R> set.seed(42); rchisq(2, 1:2, 1:2) # base case
[1] 8.676 1.653
R> set.seed(42); rchisq(1, 1, 1); rchisq(1, 2, 2) # matches
[1] 8.676
[1] 1.653
R> set.seed(42); rchisq(1, 1, 1); rchisq(1, 1, 1) # does not match
[1] 8.676
[1] 0.5874
, чтобы было похоже, что вы получаете N рисунков с использованием степеней свободы и нецентральности из соответствующего значения в предоставленном векторе.
С другой стороны, рециркуляция, как на самом деле правила, так как скалярные значения для df
и ncp
рециркулируются до длины вектора, что имеет некоторый смысл.