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 703, Thu Apr 21 22:00:04 2005 UTC revision 908, Thu Sep 8 15:30:08 2005 UTC
# Line 14  Line 14 
14      if (isTRUE(validObject(px, test=TRUE))) chol(px)      if (isTRUE(validObject(px, test=TRUE))) chol(px)
15      else stop("'x' is not positive definite -- chol() undefined.")      else stop("'x' is not positive definite -- chol() undefined.")
16  }  }
17    
18    rowCheck <- function(a, b) {
19        da <- dim(a)
20        db <- dim(b)
21        if(da[1] != db[1])
22            stop(gettextf("Matrices must have same number of rows in %s",
23                          deparse(sys.call(sys.parent()))),
24                 call. = FALSE)
25        ## return the common nrow()
26        da[1]
27    }
28    
29    colCheck <- function(a, b) {
30        da <- dim(a)
31        db <- dim(b)
32        if(da[2] != db[2])
33            stop(gettextf("Matrices must have same number of columns in %s",
34                          deparse(sys.call(sys.parent()))),
35                 call. = FALSE)
36        ## return the common ncol()
37        da[2]
38    }
39    
40    

Legend:
Removed from v.703  
changed lines
  Added in v.908

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