Update mf_all_loq.R

[MHCherkaoui]

Hi Andrew,

I was trying using PopED to evaluate the design of an experiment with three state variables. As each of those variables have a different LOQ, I wanted to use the variable loq, but I was getting the following message error.

Error in mf_all_loq(t(model_switch[i, 1:ni[i, drop = F], drop = F]), t(xt[i, :
loq or uloq not specified properly

I had a look at the code, and I noticed the following code in the function mf_all_loq:

...
if (length(loq) == n_mod) {
...

where n_mod is a vector with the index of the model. As a consequence, the if statement only evaluate the first index of n_mod (i.e. that length(loq) == n_mod it is equivalent of length(loq) == n_mod[1]), but reading the code, I would expect that the desire behaviour is to check of the number of defined loq correspond to the number of defined models, therefore, I would expect the code to be:

...
if (length(loq) == length(n_mod)) {
...

Same comment for uloq.

However, I did not test the code and I do not know if there are other parts of the package that should be adjusted for this.

Regdards

Mohammed