R/objdesign.R

In prefmod: Utilities to Fit Paired Comparison Models for Preferences

objdesign<-function(nrows,nobj,nrespcat)
{
#
# design matrix for objects
#
      obj<-matrix(c(0:0),nrows,nobj)
      row<-1
      for (j in 2:nobj) {
          for (i in 1:(j-1) ){
             d <- nrespcat
             for (c in 0:nrespcat) {
               obj[row + c, i]  <-   d
               obj[row + c, j]  <-  -d
               d <- d-2
             }
            row <- row + nrespcat + 1
          }
      }
   obj
}