如何在自定义函数里成功传参数到已有函数？

如题，自建一个函数，想在内部实现下采样，采样比例为自建函数传参，（作用嘛可以在完成采样之后跟各种回归啥的）。
以下是代码，参数是x，影响采样概率 p=1/x

test<-function(x){
  temp<-ovun.sample(ls14~.,data=data1,method="under",p=1/x)$data
  return(head(temp))

这样会报错

Error in (function (formula, data, method, subset, na.action, N, p = 0.5,  : 
  object 'x' not found
Called from: eval(expr, envir, enclos)

而如果把执行放到自建函数外面，则不报错

x<-5
temp<-ovun.sample(ls14~.,data=data1,method="under",p=1/x)$data

有高手知道是为什么吗？ :cry: