lpSolve - 如何使用离散值定义约束

Question

有没有办法将lpSolve的约束定义为一组离散值。 例如，我可以使用'＆lt; ='，'='，'＆gt; ='来定义约束：

    fn.obj <- c(3.62, 5.19, 7.29, 7.76, 3.82, 4.86, 4.03, 8.81, 9.14)
    require(lpSolveAPI)
    ...
    add.constraint(model, c(70,70,-30,70,-30,-30,-30,-30,70), ">=", 0)
    ...

如果我只想让我的x [1]，x [2]，...，x [9]分别成为一组离散的值，那该怎么办？

    x[1] in c(20000,25000,30000,35000,40000,45000,50000)
    ...