Einschränkungen in constrOptim setzen

Question

Gibt es eine einfache Methode, um theta, ui, ci für die folgenden Constraints in der constrOptim-Funktion zu setzen?

c1<x1<=c2 
x1+1<x2<=c2+1 
x2+1<x3<=c2+2 
x3+1<x4<=c2+3 

Ich dachte über die Verwendung von Simplex, aber es dauert nur 3 Einschränkungen.

Dank

Answer 1

Umschreiben nur die Einschränkungen in der gewünschten Form, ui %*% theta >= ci.

# Initial formulation of the constraints 
c1 <= x1 
     x1 <= c2 
x1+1 <= x2 
     x2 <= c2+1 
x2+1 <= x3 
     x3 <= c2+2 
x3+1 <= x4 
     x4 <= c2+3 

# Rewrite them 
    x1    >= c1 
- x1    >= -c2 
- x1 + x2   >= 1 
    - x2   >= -c2 - 1 
    - x2 + x3  >= 1 
      - x3  >= -c2 - 2 
      - x3 + x4 >= 1 
       - x4 >= -c2 - 3 

# In matrix form 
ui <- matrix(c(
    1, 0, 0, 0, 
    -1, 0, 0, 0, 
    -1, 1, 0, 0, 
    0, -1, 0, 0, 
    0, -1, 1, 0, 
    0, 0, -1, 0, 
    0, 0, -1, 1, 
    0, 0, 0, -1 
), 
    ncol = 4, 
    byrow = TRUE 
) 
ci <- c(c1, -c2, 1, -c2-1, 1, -c2-2, 1, -c2-3)