RegularisedSol {StableEstim} | R Documentation |
Regularised Inverse
Description
Regularised solution of the (ill-posed) problem K\phi = r
where
K
is a n \times n
matrix, r
is a given vector of
length
n. Users can choose one of the 3 schemes described in
Carrasco and Florens (2007).
Usage
RegularisedSol(Kn, alphaReg, r,
regularization = c("Tikhonov", "LF", "cut-off"),
...)
Arguments
Kn |
numeric |
alphaReg |
regularisation parameter; numeric in ]0,1]. |
r |
numeric vector of |
regularization |
regularization scheme to be used, one of |
... |
the value of |
Details
Following Carrasco and Florens(2007), the regularised solution of the
problem K \phi=r
is given by :
\varphi_{\alpha_{reg}} =
\sum_{j=1}^{n} q(\alpha_{reg},\mu_j)\frac{<r,\psi_j >}{\mu_j} \phi_j
,
where q
is a (positive) real function with some regularity
conditions and \mu,\phi,\psi
the singular decomposition of the
matrix K
.
The regularization
parameter defines the form of the function
q
. For example, the "Tikhonov"
scheme defines
q(\alpha_{reg},\mu) = \frac{\mu^2}{\alpha_{reg}+\mu^2}
.
When the matrix K
is symmetric, the singular decomposition is
replaced by a spectral decomposition.
Value
the regularised solution, a vector of length n.
References
Carrasco M, Florens J and Renault E (2007). “Linear inverse problems in structural econometrics estimation based on spectral decomposition and regularization.” Handbook of econometrics, 6, pp. 5633–5751.
See Also
Examples
## Adapted from R examples for Solve
## We compare the result of the regularized sol to the expected solution
hilbert <- function(n) { i <- 1:n; 1 / outer(i - 1, i, "+")}
K_h8 <- hilbert(8);
r8 <- 1:8
alphaReg_robust <- 1e-4
Sa8_robust <- RegularisedSol(K_h8,alphaReg_robust,r8,"LF")
alphaReg_accurate <- 1e-10
Sa8_accurate <- RegularisedSol(K_h8,alphaReg_accurate,r8,"LF")
## when pre multiplied by K_h8, the expected solution is 1:8
## User can check the influence of the choice of alphaReg