Paired sign test with weighting

Question

In R, I am using the survey package to conduct these tests on paired data:

• Weighted Wilcoxon Signed Rank test
• Weighted Sign test

However, I am struggling in doing them.

By defining a design and then using the functions

signed_rank<-function (x) {sign(x) * rank(abs(x))}
summary (svyglm(signed_rank(variable) ~ 1, mydesign)) 

I have been able to conduct a non-paired wilcoxon.

But I have not been able to conduct the paired version as well as the Sign test. Any idea?

Thanks