R/randomHierModel.R

randomHierModel <-
function (p, tools) {

  model <- rbinom(tools$nVarSets, 1, p)
  model[tools$lenVarSets == 1] <- 1
  model <- makeModelHierarchical(model, tools)
  return(model)

}

Try the genMOSS package in your browser

Any scripts or data that you put into this service are public.

genMOSS documentation built on May 2, 2019, 2:31 p.m.