# Ex. 1 Normal model
set.seed(1234)
n <- 100
x1 <- rnorm(n)
x2 <- runif(n,0,3)
y <- rnorm(n, 4 + x1 + 2*x2, 1)
X <- cbind(1, x1, x2)
w <- rep.int(1, n)
m <- Qlm.fit(y = y, X = X, w = w, control = Qest.control(display = TRUE))
Run the code above in your browser using DataLab