R/matrix.multiply.R

In cli9/mfaces: Fast Covariance Estimation for Multivariate Sparse Functional Data

Defines functions matrix.multiply

Documented in matrix.multiply

matrix.multiply <-
function(A,s,option=1){
  if(option==2)
    return(A*(s%*%t(rep(1,dim(A)[2]))))
  if(option==1)
    return(A*(rep(1,dim(A)[1])%*%t(s)))
}