Bonjour,
C'est quoi le problème qui te bloque ?

fon<-function(fun,n,...){
x <-fun(n,...) #ici cette fonction me simuler un échantillon de taille n
return(x)
}