# NOT RUN {
type<-4
level<-0.05
null_value<-0
n_1 <- 500
p <-100
n_2 <- 600
X<-matrix(rnorm(n_1*p),nrow=n_1,ncol=p)
eps<-matrix(rnorm(n_1),nrow=n_1,ncol=1)
Y <- X[,1] + eps
V<-matrix(rnorm(n_2*p),nrow=n_2,ncol=p)
delta<-matrix(rnorm(n_2),nrow=n_2,ncol=1)
W<-V[,1] + delta
MD_OLS(type, level, null_value, X, Y,V,W)
# }
Run the code above in your browser using DataLab