mapbay_tab if n>= 2 covariates missing

[FelicienLL]

Because we cannot subset param like this:

library(mrgsolve)
#> 
#> Attachement du package : 'mrgsolve'
#> L'objet suivant est masqué depuis 'package:stats':
#> 
#>     filter
param(house())[["CL"]]
#> [1] 1
param(house())[[c("CL", "VC")]]
#> Error in x@data[[i]]: indice hors limites

^{Created on 2023-02-06 with reprex v2.0.2}

[FelicienLL]

library(mapbayr)
#> 
#> Attachement du package : 'mapbayr'
#> L'objet suivant est masqué depuis 'package:stats':
#> 
#>     filter
mod <- exmodel(301, add_exdata = F)
dat <- exdata(301, ID = 1)
dat$SEX <- NULL
dat$BW <- NULL

mapbayest(mod, dat)
#> Error in x@data[[i]]: indice hors limites

^{Created on 2023-02-06 with reprex v2.0.2}