# matrix of auxiliary variables
Xs=cbind(c(1,1,1,1,1,0,0,0,0,0),c(0,0,0,0,0,1,1,1,1,1),c(1,2,3,4,5,6,7,8,9,10))
# inclusion probabilities
pik=rep(0.2,times=10)
# vector of totals
t=c(24,26,280)
# the g-weights
g=rakingratio(Xs,pik,t)
# the calibration estimator is equal to t
checkcalibration(Xs,pik,t,g)
# We change the vector t
t=c(24,26,1000)
g=rakingratio(Xs,pik,t)
# with this vector t, the calibration is impossible
checkcalibration(Xs,pik,t,g)
Run the code above in your browser using DataLab