# Five orthogonal predictors, each correlating .30 with Y.
set.seed(113)
d <- simulate_regression_data(
N = 200,
p = 5,
rho_YX = rep(0.30, 5)
)
summary(lm(y ~ ., data = d))$r.squared # about 0.45: five predictors, each 0.30^2
# Predictors with shared structure (exchangeable correlation matrix).
rho_XX <- matrix(0.5, nrow = 5, ncol = 5); diag(rho_XX) <- 1
simulate_regression_data(
N = 300,
p = 5,
rho_YX = c(.50, .40, .30, .20, .10),
rho_XX = rho_XX,
seed = 113
)[1:3, ]
Run the code above in your browser using DataLab