大佬们，求教R语言，使用optim函数找最小值时可以设置某一待估参数（多个待估参数）为非负整数吗？
比如这个例子，如果我想x1取任意值，x2只取非负整数，应该在哪加什么啊？
obj <- function(x){
        x1 <- x[1]
        x2 <- x[2]
        y <- x1^2+x2^2-5
}
optim(par = c(0,0),fn=obj)

先谢谢了，本人小白，如果可以，麻烦说清楚一些，再次感谢！