R/objdesign.R

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
}

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.