在r中使用optim控制参数的位数

我想减少本例中预测参数的位数。有什么想法吗

f <- function(par) {  
  a <- par[1]  
  b <- par[2]  
  (a - 1) + 3.2/b + 3*log(gamma(a)) + 3*a*log(b);  
}     

optim(c(1, .3), fn=f)  
# $par  
# [1] 1.399685 0.762025

---

f您是否只想
round
？不，我正在运行一个大型模型，我想可能通过减少位数来减少所需时间。也许可以查看
控件的
参数以
optim
。