SCM

SCM Repository

[matrix] View of /pkg/R/cscBlocked.R
ViewVC logotype

View of /pkg/R/cscBlocked.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 451 - (download) (annotate)
Sun Jan 23 10:05:53 2005 UTC (14 years, 11 months ago) by bates
File size: 477 byte(s)
New coercion method for cscBlocked objects
setAs("cscBlocked", "cscMatrix",
      function(from) .Call("cscBlocked_2cscMatrix", from))
          
##           if (any(dim(from@x)[1:2] != 1))
##               stop("code not yet written for nr > 1 or nc > 1")
##           new("cscMatrix", p = from@p, i = from@i, x = as.vector(from@x),
##                  Dim = c(max(from@i) + 1:1, length(from@p) - 1:1))
##       })

setAs("cscBlocked", "tripletMatrix",
      function(from) as(as(from, "cscMatrix"), "tripletMatrix"))

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