This function transforms dataframe contains sampling variance to a diagonal matrix R
df2R(R, r)
R
dataframe of sampling variances of direct estimators.
r
number of variables
Block diagonal matrix R
NULL