R/fitted.indscal.R

fitted.indscal <-
  function(object,...){
    # Calculates Fitted Values (arrays) for fit INDSCAL Models
    # Nathaniel E. Helwig ([email protected])
    # last updated: April 9, 2015
    
    mydim <- c(rep(nrow(object$B),2),nrow(object$C))
    array(tcrossprod(object$B,krprod(object$C,object$B)),dim=mydim)
    
  }

Try the multiway package in your browser

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

multiway documentation built on May 2, 2019, 6:47 a.m.