File: KNex.R

package info (click to toggle)
rmatrix 0.9975-6-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 4,136 kB
  • ctags: 2,162
  • sloc: ansic: 35,914; makefile: 225; fortran: 151; sh: 67
file content (11 lines) | stat: -rw-r--r-- 283 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
stopifnot(require(Matrix)) # at least its classes

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