SCM

SCM Repository

[matrix] View of /pkg/Matrix/data/CAex.R
ViewVC logotype

View of /pkg/Matrix/data/CAex.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2927 - (download) (annotate)
Sat Sep 28 18:50:51 2013 UTC (5 years, 8 months ago) by mmaechler
File size: 509 byte(s)
Matrix 1.0-16: *no* "Depends", just "Imports"
stopifnot(require(Matrix), require(methods)) # Matrix classes; new, slot<-

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")
}

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge