SCM

SCM Repository

[matrix] Diff of /pkg/R/tripletMatrix.R
ViewVC logotype

Diff of /pkg/R/tripletMatrix.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 278, Sat Sep 4 13:57:47 2004 UTC revision 279, Sat Sep 11 14:40:25 2004 UTC
# Line 27  Line 27 
27                               xlim = xlim, ylim = ylim,                               xlim = xlim, ylim = ylim,
28                               col.regions = col.regions,                               col.regions = col.regions,
29                               par.settings = list(background = list(col = "transparent")),                               par.settings = list(background = list(col = "transparent")),
30                               panel = function(x, y, z, zcol, subscripts, ..., col.regions) {  
31    
32    ### panel function that worked with R 1.9.1:
33    
34    #                              panel = function(x, y, z, zcol, subscripts, ..., col.regions) {
35    #                                  x <- as.numeric(x[subscripts])
36    #                                  y <- as.numeric(y[subscripts])
37    #                                  zcol <- as.numeric(zcol[subscripts])
38    #                                  if (any(subscripts))
39    #                                      grid::grid.rect(x = x, y = y, width = 1, height = 1,
40    #                                                      default.units = "native",
41    #                                                      gp = grid::gpar(fill = col.regions[zcol], col = NULL))
42    #                              },
43    
44    
45    ### panel function that works with R 2.0.0 -- seems to work in 1.9.1 as well:
46    
47                                 panel = function(x, y, z, subscripts, at, ..., col.regions) {
48                                   x <- as.numeric(x[subscripts])                                   x <- as.numeric(x[subscripts])
49                                   y <- as.numeric(y[subscripts])                                   y <- as.numeric(y[subscripts])
50    
51                                     numcol <- length(at) - 1
52                                     numcol.r <- length(col.regions)
53                                     col.regions <-
54                                         if (numcol.r <= numcol)
55                                             rep(col.regions, length = numcol)
56                                         else col.regions[floor(1+(1:numcol-1)*(numcol.r-1)/(numcol-1))]
57                                     zcol <- rep(NA, length(z)) #numeric(length(z))
58                                     for (i in seq(along = col.regions))
59                                         zcol[!is.na(x) & !is.na(y) & !is.na(z) & z>=at[i] & z<at[i+1]] <- i
60    
61                                   zcol <- as.numeric(zcol[subscripts])                                   zcol <- as.numeric(zcol[subscripts])
62                                   if (any(subscripts))                                   if (any(subscripts))
63                                       grid::grid.rect(x = x, y = y, width = 1, height = 1,                                       grid::grid.rect(x = x, y = y, width = 1, height = 1,
64                                                       default.units = "native",                                                       default.units = "native",
65                                                       gp = grid::gpar(fill = col.regions[zcol], col = NULL))                                                       gp = grid::gpar(fill = col.regions[zcol], col = NULL))
66                               },                               },
67    
68    
69    
70                               ...)                               ...)
71        })        })
72    
73    
74    
75    
76    
77    
78    

Legend:
Removed from v.278  
changed lines
  Added in v.279

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