The R Project SVN R-packages

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

stopifnot(require(Matrix)) # at least its classes

CAex <-
    local({
    load(system.file(file.path("external", "CAex_slots.rda"), package = "Matrix"))
    ## -> 'L'
    r <- new("dgCMatrix")
    for (n in c("Dim", "i","p","x"))
        slot(r, n) <- L[[n]]
    r
    })

## The reverse { CAex |--> L } is
if(FALSE) {
    sNms <- c("Dim", "i", "p", "x")
    L <- lapply(sNms, function(N) slot(CAex, N)); names(L) <- sNms
    save(L, file = "/u/maechler/R/Pkgs/Matrix/inst/external/CAex_slots.rda")
}