[R-meta] calculation of weighted median instead of weighted mean

[Mohamed Rahouma]

Greetings
I am trying to calculate weighted median instead of weighted mean for
meta-analysis.
I used to use `metamean` but unfortunately no `metamedian` if the data was
skewed.
I saw [this][1] but it is irrelevant in case of meta-analysis.
I appreciate any help or guidance on this.

Here is my prior code.

```
library(meta)
data(Fleiss1993cont)
# Meta-analysis of weighted mean from each study in a *single arm
meta-analysis*
m1 <- metamean(n.psyc, mean.psyc, sd.psyc,   data = Fleiss1993cont, studlab
= study); forest(m1)
```
I posted my question in stackoverflow.com (Link:
https://stackoverflow.com/questions/74804396/how-do-i-calculate-weighted-median-instead-of-weighted-mean-for-single-arm-meta
)

Appreciate your help and guidance and help

  [1]:
https://stackoverflow.com/questions/2748725/is-there-a-weighted-median-function
-- 
Best Regards;
Sincerely
Mohamed Rahouma
<https://www.google.com./url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&cad=rja&uact=8&ved=0CCkQFjAB&url=https%3A%2F%2Fsincerely.com%2F&ei=neObVayoG4v0-QH0xIrQBg&usg=AFQjCNGzY8IeWvSHsGzJCztf4BSaSxH76g&bvm=bv.96952980,d.cWw>

	[[alternative HTML version deleted]]