The R Project SVN R-packages

Rev

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

Rev 4529 Rev 4549
Line 30... Line 30...
30 
               "zgRMatrix", "zsRMatrix", "ztRMatrix")
 30 
               "zgRMatrix", "zsRMatrix", "ztRMatrix")
31 
    icl <- match(cl, valid) - 1L
 31 
    icl <- match(cl, valid) - 1L
32 
    if(is.na(icl)) stop("invalid class:", cl)
 32 
    if(is.na(icl)) stop("invalid class:", cl)
33 
    Ccl <- sub("^(..)R","\\1C", cl)  # corresponding Csparse class name
 33 
    Ccl <- sub("^(..)R","\\1C", cl)  # corresponding Csparse class name
34 
    r <- new(Ccl)
 34 
    r <- new(Ccl)
35 
    r@Dim <- rev(from@Dim)
 35 
    r@Dim <- from@Dim[2:1]
36 
    if(icl %/% 3 != 2) ## not "n..Matrix" --> has 'x' slot
 36 
    if(icl %/% 3 != 2) ## not "n..Matrix" --> has 'x' slot
37 
        r@x <- from@x
 37 
        r@x <- from@x
38 
    if(icl %% 3 != 0) {                 # symmetric or triangular
 38 
    if(icl %% 3 != 0) {                 # symmetric or triangular
39 
        r@uplo <- from@uplo
 39 
        r@uplo <- from@uplo
40 
        if(icl %% 3 == 2)               # triangular
 40 
        if(icl %% 3 == 2)               # triangular
Line 60... Line 60...
60 
    Ccl <- sub("^(..)R","\\1C", cl)  # corresponding Csparse class name
 60 
    Ccl <- sub("^(..)R","\\1C", cl)  # corresponding Csparse class name
61 
    r <- new(Ccl)
 61 
    r <- new(Ccl)
62 
    r@i <- from@j
 62 
    r@i <- from@j
63 
    ##-         -
 63 
    ##-         -
64 
    r@p <- from@p
 64 
    r@p <- from@p
65 
    r@Dim      <- rev(from@Dim)
 65 
    r@Dim      <- from@Dim[2:1]
66 
    r@Dimnames <- rev(from@Dimnames)
 66 
    r@Dimnames <- from@Dimnames[2:1]
67 
 
 67 
 
68 
    if(icl %/% 3 != 2) ## not "n..Matrix" --> has 'x' slot
 68 
    if(icl %/% 3 != 2) ## not "n..Matrix" --> has 'x' slot
69 
        r@x <- from@x
 69 
        r@x <- from@x
70 
    if(icl %% 3 != 0) {                 # symmetric or triangular
 70 
    if(icl %% 3 != 0) {                 # symmetric or triangular
71 
        r@uplo <- from@uplo
 71 
        r@uplo <- from@uplo