R/USV.R

In PEIP: Geophysical Inverse Theory and Optimization

Defines functions USV

Documented in USV

USV <-
function(G)
{

uu = svd(G)

##  assign("U", uu$u, envir = .GlobalEnv)
## assign("S", uu$d, envir = .GlobalEnv)
## assign("V", uu$v, envir = .GlobalEnv)

return(list(U=uu$u, S=uu$d, V= uu$v))

}

Try the PEIP package in your browser