N <- 100
n <- 40
x1 <- rgamma(N,4,25)
x2 <- rgamma(N,4,25)
pik <- rep(n/N,N)
Xaux <- cbind(pik,as.matrix(matrix(c(x1,x2),ncol = 2)))
Xspread <- cbind(runif(N),runif(N))
s <- balseq(pik,Xaux,Xspread)
y <- Xaux%*%c(1,1,3) + rnorm(N,120) # variable of interest
vEst(Xaux[s,],pik[s],y[s])
vDBS(Xaux[s,],Xspread[s,],pik[s],y[s])
vApp(Xaux,pik,y)
Run the code above in your browser using DataLab