R/fitted.sca.R

fitted.sca <-
  function(object,...){
    # Calculates Fitted Values (lists) for fit SCA Models
    # Nathaniel E. Helwig ([email protected])
    # last updated: April 9, 2015
    
    sapply(object$D,function(d,b){tcrossprod(d,b)},b=object$B)
    
  }

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.