R/differences.R

`differences` <-
function(in_mat){
################################################################
# calculate differences from non-paired comparison responses
# (i.e. ratings/Likert or rankings)
# Sinclair ordering: (1-2)(1-3)(2-3)(1-4)
################################################################

   ncomp <-get("ncomp",get("ENV", environment(patt.design)))
   nobj  <-get("nobj",get("ENV", environment(patt.design)))

   diffs<-matrix(c(0:0),nrow(in_mat),ncomp)
   col<-1
   for (j in 2:nobj) {
       for (i in 1:(j-1) ){
           diffs[, col]  <- in_mat[,i]-in_mat[,j]
           col <- col + 1
       }
   }
   diffs
}

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.