# NOT RUN {
pt1 <- proc.time()
##Simulated data
set.seed(12345)
n=200
e = rnorm(n)
X = cbind(1,rnorm(n))
b0 =c(1,2)
y = X
# }
# NOT RUN {
<!-- %*%b0 + e -->
# }
# NOT RUN {
obj <- reg(X,y)
proc.time() - pt1
# }
Run the code above in your browser using DataLab