residuals.improvedpreliminaryTest {ImpShrinkage} | R Documentation |
Residuals values based on model object improvedpreliminaryTest
.
## S3 method for class 'improvedpreliminaryTest'
residuals(object, ...)
object |
An object of class |
... |
Other arguments. |
A vector of residuals.
residuals.unrestricted
,
residuals.restricted
,
residuals.preliminaryTest
,
residuals.stein
,
residuals.positivestein
,
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 <- iptReg(X, y, H, h, alpha = 0.05)
residuals(model)