R/sigma2hatepsilonhat.R
sigma2hatepsilonhatbiased.Rd
Calculates an estimate of the error variance $$ \mathbf{E} \left( \sigma^2 \right) = \hat{\sigma}_{\hat{\varepsilon}}^{2} $$ $$ \hat{\sigma}_{\hat{\varepsilon} \ \textrm{biased}}^{2} = \frac{1}{n} \sum_{i = 1}^{n} \left( \mathbf{y} - \mathbf{X} \boldsymbol{\hat{\beta}} \right)^2 \\ = \frac{\boldsymbol{\hat{\varepsilon}}^{\prime} \boldsymbol{\hat{\varepsilon}}}{n} \\ = \frac{\mathrm{RSS}}{n} $$ where \(\boldsymbol{\hat{\varepsilon}}\) is the vector of residuals, \(\mathrm{RSS}\) is the residual sum of squares, and \(n\) is the sample size.
sigma2hatepsilonhatbiased(X, y)
X |
|
---|---|
y | Numeric vector of length |
Returns the estimated residual variance \(\hat{\sigma}_{\hat{\varepsilon} \ \textrm{biased}}^{2}\) .
Wikipedia: Ordinary Least Squares
Other residual variance functions:
.sigma2hatepsilonhatbiased()
,
.sigma2hatepsilonhat()
,
sigma2hatepsilonhat()
Ivan Jacob Agaloos Pesigan
# Simple regression------------------------------------------------ X <- jeksterslabRdatarepo::wages.matrix[["X"]] X <- X[, c(1, ncol(X))] y <- jeksterslabRdatarepo::wages.matrix[["y"]] sigma2hatepsilonhatbiased(X = X, y = y)#> [1] 57.15526# Multiple regression---------------------------------------------- X <- jeksterslabRdatarepo::wages.matrix[["X"]] # age is removed X <- X[, -ncol(X)] sigma2hatepsilonhatbiased(X = X, y = y)#> [1] 42.15868