Nothing

```
.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])))
}
```

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

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.