cond: Extended svd

Usage Arguments Examples

View source: R/fun.R

Usage

1
cond(x)

Arguments

x

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
##---- 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 (x) 
{
    Svd <- svd(x)
    ret <- list(svd = Svd, dim = dim(x), rank = qr(x)$rank, condition = Svd$d[1]/Svd$d[length(Svd$d)])
    if (nrow(x) == ncol(x)) 
        ret <- c(ret, cor = list(cor(x)))
    ret
  }

gmonette/spida documentation built on May 14, 2017, 1 p.m.