R/enlarge_matrix.R

enlarge_matrix <-
function (f, d) 
{
    fenl = matrix(0, nrow(f) + 2 * d, ncol(f) + 2 * d, byrow = FALSE)
    fenl[(1 + d):(nrow(f) + d), (1 + d):(ncol(f) + d)] = f
    return(fenl)
}

Try the SpatialVx package in your browser

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

SpatialVx documentation built on May 29, 2024, 9:31 a.m.