SCM

SCM Repository

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

Diff of /pkg/R/ssclme.R

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

revision 474, Tue Feb 1 14:41:24 2005 UTC revision 475, Tue Feb 1 14:44:06 2005 UTC
# Line 1  Line 1 
 setReplaceMethod("coef", signature(object = "ssclme", value = "numeric"),  
                  function(object, unconst = FALSE, ..., value)  
                  .Call("ssclme_coefGets", object, as.double(value),  
                        unconst))  
   
1  setAs("ssclme", "sscMatrix",  setAs("ssclme", "sscMatrix",
2        function(from)        function(from)
3        new("sscMatrix", i = from@i, p = from@p, Dim = from@Dim, x = from@x,        new("sscMatrix", i = from@i, p = from@p, Dim = from@Dim, x = from@x,
# Line 13  Line 8 
8        new("tscMatrix", i = from@Li, p = from@Lp, Dim = from@Dim, x = from@Lx,        new("tscMatrix", i = from@Li, p = from@Lp, Dim = from@Dim, x = from@Lx,
9            uplo = "L", diag = "U"))            uplo = "L", diag = "U"))
10    
11    setReplaceMethod("coef", signature(object = "ssclme", value = "numeric"),
12                     function(object, unconst = FALSE, ..., value)
13                     .Call("ssclme_coefGets", object, as.double(value), unconst))
14    
15  setMethod("coef", signature(object = "ssclme"),  setMethod("coef", signature(object = "ssclme"),
16            function(object, unconst = FALSE, ...) {            function(object, unconst = FALSE, ...)
17                .Call("ssclme_coef", object, unconst)            .Call("ssclme_coef", object, unconst) )
           })  
18    

Legend:
Removed from v.474  
changed lines
  Added in v.475

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