Модель lp в r Ошибка: не найдено подходящего решения

Question

Большую часть времени я получаю результат "Ошибка: не найдено подходящего решения". почему?

library(lpSolve)
m=5
n<- ceiling(m/2)
Z<- round(rnorm(n=n,mean=1,sd=10))
variabels_A<- round(rnorm(n=n*m,mean=1,sd=10))
A<- matrix(data = variabels_A, nrow=m, ncol=n)
b<- round(rnorm(n=m,mean=1,sd=10))
dir<- c(">=","<=","==")
dir<-dir[sample(x = c(1:3),size = m,replace = T)]
model<- lp(direction="max", objective.in=Z, const.mat=A, const.dir=dir, const.rhs=b)
model

спасибо! * * 1004