R/tcprod.R

tcprod <-
function(X,Y=NULL){
  
  if(is.null(X) & is.null(Y)){
    Z <- 0
  } else if(is.null(Y)) {
    Z <- tcrossprod(X)
  } else {
    Z <- tcrossprod(X,Y)
  }
  Z
  
}

Try the bigsplines package in your browser

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

bigsplines documentation built on May 2, 2019, 9:27 a.m.