Генерация случайных чисел в R

Question

Предположим, у меня есть следующая функция,

foo <- function(x) { 
    print(x) 
    print(x) 
} 

И предположим, что я это сделать,

foo(runif(1)) 

я получаю следующий результат,

[1] 0.5354641 
[1] 0.5354641 

Или некоторые другое случайное число. Я хочу, чтобы в качестве вывода было два разных числа. Это возможно? Другими словами, я хотел бы,

[1] 0.5354641 
[1] 0.2895715 

Answer 1

replicate(2, runif(1)) Ответы должны быть не менее 30 символов.

Answer 2

Пытаясь расшифровать то, что вы хотите от комментариев, я думаю, вы хотите, чтобы функция случайной генерации чисел передавалась другой функции и выполняла ее несколько раз. По какой-то причине вы не можете просто указать его внутри основной функции foo (это поможет контекст). Я думаю, что вы хотите что-то, что использует match.fun() вроде этого:

foo <- function(FUN) { 
    FUN <- match.fun(FUN) 
    print(FUN()) 
    print(FUN()) 
} 

my_runif <- function(){ 
    runif(1) 
} 

foo(my_runif) 

Он делает то, что вы хотите, я думаю:

> foo(my_runif) 
[1] 0.6657059 
[1] 0.7969368