R/arithmetic.R

In Paradigm4/s4vdp4: Performance enhancements and SciDB matrix support for the s4vd biclustering package.

# A matrix-vector product that avoids explicitly forming the transpose
# of the (potentially big) matrix.
matvec = function(A,x,transpose=FALSE)
{
  if(transpose)
    return( (t(t(x)%*%A))[,drop=FALSE] )
  (A %*% x)[,drop=FALSE]
}