R/mat.prod.R

mat.prod <-
function(A,B){
    if (is.matrix(A)==FALSE) {A=t(A)
    }else{A=A}
   matrices <- matrix(0, ncol=ncol(A), nrow=nrow(A))
    for (i in 1:ncol(A)) {
      matrices[,i] <- A[,i]*B
    }
   return(matrices)
  }

Try the wgeesel package in your browser

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

wgeesel documentation built on May 2, 2019, 3:41 a.m.