bma2 <- bicreg(
  x.quest,
  y.quest,
  wt = rep(1, length(y.quest)),
  strict = FALSE,
  OR = 20,
  maxCol = 31,
  drop.factor.levels = FALSE,
  nbest = 70
)

no_cores <- detectCores() - 1
cl <- makeCluster(no_cores)

bma_resp <- function(i) {
  bma1 <- bicreg(
  x.quest,
  y.quest,
  wt = rep(1, length(y.quest)),
  strict = FALSE,
  OR = 20,
  maxCol = 31,
  drop.factor.levels = FALSE,
  nbest = 70)
  return(bma1)
}

final <- mclapply(1, bma_resp)