Defines functions oclKronVectMult1col3Q

Documented in oclKronVectMult1col3Q

oclKronVectMult1col3Q<- function(kernel, a, b, c, y, ...){
  if ((ncol(a) * ncol(b) * ncol(c)) != length(y)) stop("Error msg")
  matrix(oclRun(kernel, nrow(a) * nrow(b)*nrow(c), as.double(as.vector(a)),
                as.double(as.vector(b)), as.double(as.vector(c)),
                as.double(y), ncol(a),
                nrow(a), ncol(b), nrow(b), ncol(c), nrow(c)),
         nrow = nrow(a) * nrow(b)*nrow(c), byrow = TRUE)

Try the CARrampsOcl package in your browser

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

CARrampsOcl documentation built on May 2, 2019, 3:27 a.m.