The R Project SVN R

Rev

Rev 77414 | Rev 77965 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 77414 Rev 77423
Line 20... Line 20...
20 
    (Z22s <- Matrix(0, 2, 2,               doDiag=FALSE))# -> sparse symm. "dsCMatrix"
 20 
    (Z22s <- Matrix(0, 2, 2,               doDiag=FALSE))# -> sparse symm. "dsCMatrix"
21 
    (Z22d <- Matrix(0, 2, 2, sparse=FALSE, doDiag=FALSE))# -> dense  symm. "dsyMatrix"
 21 
    (Z22d <- Matrix(0, 2, 2, sparse=FALSE, doDiag=FALSE))# -> dense  symm. "dsyMatrix"
22 
 
 22 
 
23 
    ## logical ones:
 23 
    ## logical ones:
24 
    (L4  <- Matrix(diag(4) >  0)) # -> "ldiMatrix" with diag = "U"
 24 
    (L4  <- Matrix(diag(4) >  0)) # -> "ldiMatrix" with diag = "U"
25 
    (L4. <- Matrix(diag(4) >  0, sparse=TRUE)) #  (ditto)
 25 
    ## TODO (L4. <- Matrix(diag(4) >  0, sparse=TRUE)) #  ditto, from Matrix 1.3.* on
26 
    (L4d <- Matrix(diag(4) >= 0)) # -> "lsyMatrix" (of all 'TRUE')
 26 
    (L4d <- Matrix(diag(4) >= 0)) # -> "lsyMatrix" (of all 'TRUE')
27 
    ## triangular
 27 
    ## triangular
28 
    l3 <- upper.tri(matrix(,3,3))
 28 
    l3 <- upper.tri(matrix(,3,3))
29 
    (M <- Matrix(l3))               # "ltCMatrix"
 29 
    (M <- Matrix(l3))               # "ltCMatrix"
30 
    (Nl3 <- Matrix(! l3))           # "ltrMatrix"
 30 
    (Nl3 <- Matrix(! l3))           # "ltrMatrix"