How to look at submatrices of InfinitySparseMatrix objects

gistfile1.r

library(optmatch)

example(match_on)

#' @param x An ISM or blocked ISM
#' @param rs Names of rows to keep
#' @param cs Names of columns to keep
submatrix <- function(x, rs, cs) {
  subset(x,
         x@rownames %in% rs,
         x@colnames %in% cs)
}

myr <- c("B", "F")
myc <- c("I", "d")

# non-blocked matrix:
as.matrix(submatrix(match_on.examples$pscal, myr, myc))

# blocked matrix:
as.matrix(submatrix(match_on.examples$ps3, myr, myc))