SCM

SCM Repository

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

Diff of /pkg/R/Auxiliaries.R

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

revision 1672, Mon Nov 6 20:25:10 2006 UTC revision 1673, Mon Nov 6 20:54:26 2006 UTC
# Line 2  Line 2 
2  #### (called from more than one place --> need to be defined early)  #### (called from more than one place --> need to be defined early)
3    
4  .isR_24 <- (paste(R.version$major, R.version$minor, sep=".") >= "2.4")  .isR_24 <- (paste(R.version$major, R.version$minor, sep=".") >= "2.4")
5    .isR_25 <- (paste(R.version$major, R.version$minor, sep=".") >= "2.5")
6    
7  ## Need to consider NAs ;  "== 0" even works for logical & complex:  ## Need to consider NAs ;  "== 0" even works for logical & complex:
8  is0  <- function(x) !is.na(x) & x == 0  is0  <- function(x) !is.na(x) & x == 0
# Line 435  Line 436 
436      else stop(" not yet be implemented for ", clx)      else stop(" not yet be implemented for ", clx)
437  }  }
438    
439    .type.kind <- c("d" = "double",
440                    "l" = "logical",
441                    "n" = "logical",
442                    "z" = "complex")
443    
444  .M.shape <- function(x, clx = class(x)) {  .M.shape <- function(x, clx = class(x)) {
445      if(is.matrix(x)) { ## 'old style matrix'      if(is.matrix(x)) { ## 'old style matrix'
446          if     (isDiagonal  (x)) "d"          if     (isDiagonal  (x)) "d"

Legend:
Removed from v.1672  
changed lines
  Added in v.1673

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