R/compnames.R

`compnames` <-
function(nobj){
#################################################################
#  function to generate a vector of labels
#  for comparisons in sinclair ordering
#################################################################
     nobj  <-get("nobj",get("ENV", environment(patt.design)))
     str<-NULL
     for (j in 2:nobj) {
         for (i in 1:(j-1) ){
             str<-c(str, paste("u",i,j,sep=""))
         }
     }
     assign("undecnames",str,get("ENV", environment(patt.design)))
     str
}

Try the prefmod package in your browser

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

prefmod documentation built on May 2, 2019, 4:59 p.m.