# Calculate a weighted median in two ways
data(model_outputs)
data(fweights)
weighted_median1 <- simple_ensemble(model_outputs, weights = fweights,
agg_fun = stats::median)
weighted_median2 <- simple_ensemble(model_outputs, weights = fweights,
agg_fun = matrixStats::weightedMedian)
all.equal(weighted_median1, weighted_median2)
Run the code above in your browser using DataLab