X <- matrix(rnorm(100 * 5), nrow = 100, ncol = 5)
y <- X[, 1] * 0.5 + X[, 2] * 1 + rnorm(100)
G <- c(1, 2)
A <- matrix(c(1.5, 0.8, 0.8, 1.5), nrow = 2, ncol = 2)
Est <- QF(X, y, G, A, model = "linear")
## compute confidence intervals
ci(Est, alpha = 0.05, alternative = "two.sided")
## summary statistics
summary(Est)
Run the code above in your browser using DataLab