## simulate some data
set.seed(9)
n = 30
p = 10
sigma.square = 1
X = matrix(rnorm(n*p),n,p)
beta = c(2,-2,1,-1,rep(0,p-4))
Y = X%*%beta + rnorm(n,0,sqrt(sigma.square))
## estimate sigma square
sigma.square.est = estimateVariance(X,Y)
sigma.square.est
Run the code above in your browser using DataLab