##### Example 1: A linear model with precisely measured covariates #####
X1 = matrix(rnorm((20)*400),nrow=400,ncol=20,byrow=TRUE)
data=ME_Data(X=X1,beta=c(1,1,1,rep(0,dim(X1)[2]-3)),
type="normal",sigmae=diag(0,dim(X1)[2]))
Y<-data$response
Xstar<-data$ME_covariate
Boost_VSE(Y,Xstar,type="normal",Iter=3)
##### Example 2: A linear model with error-prone covariates #####
X1 = matrix(rnorm((20)*400),nrow=400,ncol=20,byrow=TRUE)
data=ME_Data(X=X1,beta=c(1,1,1,rep(0,dim(X1)[2]-3)),
type="normal",sigmae=diag(0.3,dim(X1)[2]))
Y<-data$response
Xstar<-data$ME_covariate
Boost_VSE(Y,Xstar,type="normal",Iter=3)
Run the code above in your browser using DataLab