SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/R/diagMatrix.R
ViewVC logotype

Diff of /pkg/Matrix/R/diagMatrix.R

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

revision 2741, Fri Dec 9 10:38:51 2011 UTC revision 2764, Fri Feb 17 19:58:29 2012 UTC
# Line 78  Line 78 
78      .sparseDiagonal(n, x, uplo, shape = "t")      .sparseDiagonal(n, x, uplo, shape = "t")
79    
80    
81  ### This is modified from a post of Bert Gunter to R-help on  1 Sep 2005.  ## This is modified from a post of Bert Gunter to R-help on  1 Sep 2005.
82  ### Bert's code built on a post by Andy Liaw who most probably was influenced  ## Bert's code built on a post by Andy Liaw who most probably was influenced
83  ### by earlier posts, notably one by Scott Chasalow on S-news, 16 Jan 2002  ## by earlier posts, notably one by Scott Chasalow on S-news, 16 Jan 2002
84  ### who posted his bdiag() function written in December 1995.  ## who posted his bdiag() function written in December 1995.
85  if(FALSE)##--- no longer used:  if(FALSE)##--- no longer used:
86  .bdiag <- function(lst) {  .bdiag <- function(lst) {
87      ### block-diagonal matrix [a dgTMatrix] from list of matrices      ## block-diagonal matrix [a dgTMatrix] from list of matrices
88      stopifnot(is.list(lst), length(lst) >= 1)      stopifnot(is.list(lst), length(lst) >= 1)
89      dims <- sapply(lst, dim, USE.NAMES=FALSE)      dims <- sapply(lst, dim, USE.NAMES=FALSE)
90      ## make sure we had all matrices:      ## make sure we had all matrices:

Legend:
Removed from v.2741  
changed lines
  Added in v.2764

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