fitted.restricted {ImpShrinkage}

Extract Model Fitted Values

Description

Fitted values based on object restrcited.

Usage

## S3 method for class 'restricted'
fitted(object, ...)

Arguments

object

An object of class restricted.

...

Other arguments.

Value

Fitted values extracted from the object restricted.

See Also

fitted.unrestricted, fitted.preliminaryTest, fitted.improvedpreliminaryTest, fitted.stein, fitted.positivestein

Examples

n_obs <- 100
p_vars <- 5
beta <- c(2, 1, 3, 0, 5)
simulated_data <- simdata(n = n_obs, p = p_vars, beta)
X <- simulated_data$X
y <- simulated_data$y
p <- ncol(X)
# H beta = h
H <- matrix(c(1, 1, -1, 0, 0, 1, 0, 1, 0, -1, 0, 0, 0, 1, 0), nrow = 3, ncol = p, byrow = TRUE)
h <- rep(0, nrow(H))
model <- resReg(X, y, H, h)
fitted(model)