SCM

SCM Repository

[matrix] Diff of /pkg/R/lsCMatrix.R
ViewVC logotype

Diff of /pkg/R/lsCMatrix.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1448, Sat Aug 26 03:29:36 2006 UTC revision 1571, Sat Sep 16 21:03:12 2006 UTC
# Line 15  Line 15 
15    
16  setAs("lsCMatrix", "dsCMatrix",  setAs("lsCMatrix", "dsCMatrix",
17        function(from) new("dsCMatrix", i = from@i, p = from@p,        function(from) new("dsCMatrix", i = from@i, p = from@p,
18                           x = rep(1, length(from@i)), uplo = from@uplo,                           x = as.double(from@x), uplo = from@uplo,
19                           Dim = from@Dim, Dimnames = from@Dimnames))                           Dim = from@Dim, Dimnames = from@Dimnames))
20    
21  setAs("lsCMatrix", "dgTMatrix",  setAs("lsCMatrix", "dgTMatrix",
# Line 48  Line 48 
48            })            })
49    
50  setMethod("chol", signature(x = "lsCMatrix", pivot = "missing"),  setMethod("chol", signature(x = "lsCMatrix", pivot = "missing"),
51            function(x, pivot, LINPACK) stop("temporarily disabled"))            function(x, pivot, ...) chol(as(x, "dgCMatrix"), pivot = FALSE))
52  ##          .Call(lsCMatrix_chol, x, TRUE))  ##          .Call(lsCMatrix_chol, x, FALSE))
53    
54  setMethod("chol", signature(x = "lsCMatrix", pivot = "logical"),  setMethod("chol", signature(x = "lsCMatrix", pivot = "logical"),
55            function(x, pivot, LINPACK) stop("temporarily disabled"))            function(x, pivot, ...) chol(as(x, "dgCMatrix"), pivot = pivot))
56  ##          .Call(lsCMatrix_chol, x, pivot))  ##          .Call(lsCMatrix_chol, x, pivot))
57    
58  ## Use more general method from CsparseMatrix class  ## Use more general method from CsparseMatrix class

Legend:
Removed from v.1448  
changed lines
  Added in v.1571

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