lib/Matrix/data/KNex.R

In arodri7/SAIGE-GPU: Efficiently controlling for case-control imbalance and sample relatedness in single-variant assoc tests (SAIGE) and controlling for sample relatedness in region-based assoc tests in large cohorts and biobanks (SAIGE-GENE)

stopifnot(requireNamespace("methods", quietly = TRUE),
	  requireNamespace("Matrix" , quietly = TRUE))

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