How to generate random numbers from a function in rStudio

I'm having difficulty generating a random sample of size 1000 from a function. Say the function is function(x){0.25*x}. Please help