The R Project SVN R-packages

Rev

Rev 4095 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4095 Rev 4132
Line 10... Line 10...
10 
 
 10 
 
11 
setAs("ntCMatrix", "ngCMatrix",
 11 
setAs("ntCMatrix", "ngCMatrix",
12 
      function(from) new("ngCMatrix", i = from@i, p = from@p,
 12 
      function(from) new("ngCMatrix", i = from@i, p = from@p,
13 
                         Dim = from@Dim, Dimnames = from@Dimnames))
 13 
                         Dim = from@Dim, Dimnames = from@Dimnames))
14 
 
 14 
 
15 
setAs("ntCMatrix", "dMatrix", # < instead of "dtCMatrix"
 15 
.ntC2d <- function(from)
16 
      function(from) new("dtCMatrix", i = from@i, p = from@p,
 16 
    new("dtCMatrix", i = from@i, p = from@p,
17 
                         x = rep.int(1, length(from@i)), uplo = from@uplo,
 17 
	x = rep.int(1, length(from@i)), uplo = from@uplo,
- 
 
 18 
	diag = from@diag, Dim = from@Dim, Dimnames = from@Dimnames)
- 
 
 19 
 
- 
 
 20 
.ntC2l <- function(from)
18 
                         diag = from@diag,
 21 
    new("ltCMatrix", i = from@i, p = from@p,
- 
 
 22 
	x = rep.int(TRUE, length(from@i)), uplo = from@uplo,
19 
                         Dim = from@Dim, Dimnames = from@Dimnames))
 23 
	diag = from@diag, Dim = from@Dim, Dimnames = from@Dimnames)
- 
 
 24 
 
- 
 
 25 
setAs("ntCMatrix", "dMatrix", .ntC2d)# < instead of "dtCMatrix"
- 
 
 26 
setAs("ntCMatrix", "dsparseMatrix", .ntC2d)
- 
 
 27 
setAs("ntCMatrix", "dtCMatrix", .ntC2d)
- 
 
 28 
 
- 
 
 29 
setAs("ntCMatrix", "lMatrix", .ntC2l)
- 
 
 30 
setAs("ntCMatrix", "lsparseMatrix", .ntC2l)
- 
 
 31 
setAs("ntCMatrix", "ltCMatrix", .ntC2l)
- 
 
 32 
 
- 
 
 33 
rm(.ntC2d,.ntC2l) # don't even keep "hidden"
20 
 
 34 
 
21 
setAs("ngCMatrix", "ntCMatrix", # to triangular, needed for triu,..
 35 
setAs("ngCMatrix", "ntCMatrix", # to triangular, needed for triu,..
22 
      function(from) as(as(as(from, "ngTMatrix"), "ntTMatrix"), "ntCMatrix"))
 36 
      function(from) as(as(as(from, "ngTMatrix"), "ntTMatrix"), "ntCMatrix"))
23 
 
 37 
 
24 
## setAs("ntCMatrix", "generalMatrix",
 38 
## setAs("ntCMatrix", "generalMatrix",