# SCM Repository

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

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

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