The R Project SVN R-packages

Rev

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

Rev 3543 Rev 3782
Line 31... Line 31...
31 
    for(i in 1:4)
 31 
    for(i in 1:4)
32 
        edL[[i]] <- list(edges = 5-i)
 32 
        edL[[i]] <- list(edges = 5-i)
33 
    gR <- new("graphNEL", nodes=V, edgeL=edL)
 33 
    gR <- new("graphNEL", nodes=V, edgeL=edL)
34 
    str(edges(gR))
 34 
    str(edges(gR))
35 
    sm.g <- as(gR, "sparseMatrix")
 35 
    sm.g <- as(gR, "sparseMatrix")
36 
    str(sm.g) ## dgT: FIXME: want 'dsT'  and Dimnames!
 36 
    str(sm.g) ## dgC: TODO: want 'ds.' (symmetric)
37 
    validObject(sm.g)
 37 
    validObject(sm.g)
38 
    sm.g ## should show the Dimnames - at least row ones
 38 
    sm.g ## TODO: should also show the colnames
39 
 
 39 
 
40 
    ## 1b) weighted
 40 
    ## 1b) weighted
41 
    set.seed(123)
 41 
    set.seed(123)
42 
    for(i in 1:4)
 42 
    for(i in 1:4)
43 
        edL[[i]] <- list(edges = 5-i, weights=runif(1))
 43 
        edL[[i]] <- list(edges = 5-i, weights=runif(1))
44 
    gRw <- new("graphNEL", nodes=V, edgeL=edL)
 44 
    gRw <- new("graphNEL", nodes=V, edgeL=edL)
45 
    str(edgeWeights(gRw))
 45 
    str(edgeWeights(gRw))
46 
    sm.gw <- as(gRw, "sparseMatrix")
 46 
    sm.gw <- as(gRw, "sparseMatrix")
47 
    str(sm.gw) ## dgT
 47 
    str(sm.gw) ## *numeric* dgCMatrix
48 
    validObject(sm.gw)
 48 
    validObject(sm.gw)
49 
    sm.gw ## should show the Dimnames - at least row ones
 49 
    sm.gw ## U[0,1] numbers in anti-diagonal
50 
 
 50 
 
51 
    ## 2) directed
 51 
    ## 2) directed
52 
    gU <- gR; edgemode(gU) <- "directed"
 52 
    gU <- gR; edgemode(gU) <- "directed"
53 
    sgU <- as(gU, "sparseMatrix")
 53 
    sgU <- as(gU, "sparseMatrix")
54 
    str(sgU) ## 'dgT' -- FIXME: dimnames
 54 
    str(sgU) ## 'dgC'
55 
    validObject(sgU)
 55 
    validObject(sgU)
56 
    sgU
 56 
    sgU
57 
 
 57 
 
58 
    ## Reverse :  sparseMatrix -> graph
 58 
    ## Reverse :  sparseMatrix -> graph
59 
 
 - 
 
- 
 
 59 
    sm.g[1,2] <- 1
60 
    gmg  <-  as(sm.g, "graph")
 60 
    gmg  <-  as(sm.g, "graph")
61 
    validObject(gmg2 <-  as(sm.g, "graphNEL"))
 61 
    validObject(gmg2 <-  as(sm.g, "graphNEL"))
62 
    gmgw <-  as(sm.gw, "graph")
 62 
    gmgw <-  as(sm.gw, "graph")
63 
    validObject(gmgw2 <- as(sm.gw, "graphNEL"))
 63 
    validObject(gmgw2 <- as(sm.gw, "graphNEL"))
64 
    gmgU <-  as(sgU, "graph")
 64 
    gmgU <-  as(sgU, "graph")
Line 98... Line 98...
98 
          identical(t(M), as(At.csr, "dgCMatrix"))
 98 
          identical(t(M), as(At.csr, "dgCMatrix"))
99 
          )
 99 
          )
100 
 
 100 
 
101 
## TODO: More tests; in particular for triplets !
 101 
## TODO: More tests; in particular for triplets !
102 
 
 102 
 
- 
 
 103 
if(FALSE) # detaching the package gives an error (.GenericTable ...)
103 
detach("package:SparseM")
 104 
detach("package:SparseM")
104 
 
 105 
 
105 
    }
 106 
    }
106 
 
 107 
 
107 
}## end{SparseM}
 108 
}## end{SparseM}