Survey in R


In R, I want to calibrate my sample by the linear method, but I do not know how to use my weighted weights to recalculate my total :

design18=subset(design, HORAIRE=="18h") #the design of my sample
svytotal(~(NbVoix), design18) #estimation of my total without calibration

weightsLinear=calib(X, d=pond, popTotals, method="linear", description=TRUE)

svytotal(~(NbVoix*weightsLinear), design18) ???? => it's correct ?