[R-br] Erro na inserção de restrições - função add_constraint - pacote ompr

[Adriele Giaretta Biase]

Bom dia a todos,

pessoal estou com um erro na construção de uma restrição no modelo de
pesquisa operacional.

A soma da combinação de um índices de fatores deve ser igual um número. O
erro é referente algum "=" ou ")" errado. Mas não consigo encontrar.

i é um vetor que contem 40 índices (1:40);
j é um vetor que contem 4 índices (1:4);
k é um vetor que contem  150 dias (1:150);
m é um numero que contem apenas um índice (1 apenas);

Vejam o código:

### Script:

    add_constraint(
    sum_expr(
      x[i,j,k,m],
      i = as.numeric(as.vector(levels(as.factor(conj_dados[, "bois"])))),
      j = as.numeric(as.vector(levels(as.factor(conj_dados[, "frig"])))),
      k = as.numeric(as.vector(levels(as.factor(conj_dados[, "dias"])))),
      m = as.numeric(as.vector(levels(as.factor(conj_dados[, "merc"])))) )
    = 40
  )%>%



### Execução no Console
>     add_constraint(
+     sum_expr(
+       x[i,j,k,m],
+       i = as.numeric(as.vector(levels(as.factor(conj_dados[, "bois"])))),
+       j = as.numeric(as.vector(levels(as.factor(conj_dados[, "frig"])))),
+       k = as.numeric(as.vector(levels(as.factor(conj_dados[, "dias"])))),
+       m = as.numeric(as.vector(levels(as.factor(conj_dados[, "merc"])))) )
+     = 40
Error: unexpected '=' in:
"      m = as.numeric(as.vector(levels(as.factor(conj_dados[, "merc"])))) )
    ="
>   )%>%
Error: unexpected ')' in "  )"

-- 
Adriele Giaretta Biase.
Mestre em  Estatística e Experimentação Agropecuária - UFLA.
Doutora em Estatística e Experimentação Agronômica - ESALQ/ USP
Contato: (19) 98861-0619.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20180528/121b180a/attachment.html>