R/all_patterns.R

In prefmod: Utilities to Fit Paired Comparison Models for Preferences

`all_patterns` <- function(a,b,nobj=NULL){
################################################################
# corresponds to: rev( expand.grid(a:b,a:b,a:b,...) )
#   like GLIM's $gfac
################################################################

  if (is.null(nobj))
     nobj  <-get("nobj",get("ENV", environment(patt.design)))
  grid<-vector("list",nobj)
  for (i in 1:nobj)
    grid[[i]]<-a:b
  patterns<-rev( expand.grid(grid) )
  patterns
}