# SCM Repository

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

# Diff of /pkg/R/Auxiliaries.R

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