vecs: Vector of matrix elements above diagonal
In tpepler/theolib: Collection of Auxiliary Functions

Description Usage Arguments Value Author(s) Examples

View source: R/vecs.R

Stacks the rows of the upper diagonal of a symmetric matrix in a vector.

1	vecs(datamat)

datamat

A symmetric matrix.

Returns a vector containing the elements in the stacked rows of the upper diagonal of datamat.

Theo Pepler

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (datamat)
{
    p <- ncol(datamat)
    outputvec <- NULL
    for (j in 1:p) {
        outputvec <- append(outputvec, datamat[j, j:p])
    }
    return(outputvec)
  }