R/intersection.R

Defines functions .intersection

.intersection <- function(x, y, proper = FALSE) {

  p <- as.integer(rep(0, x@Dim[2] + 1))
  i <- intersects_C(x@p, x@i, x@Dim,
                    y@p, y@i, y@Dim, p)

  Matrix::t(methods::new("ngCMatrix", p = p, i = i,
                         Dim = c(y@Dim[2], x@Dim[2])))

}
neuroimaginador/fcaR documentation built on Sept. 15, 2024, 7:51 a.m.