Include predicted weights in list output of ensemble_forecast

[gehusi]

It would be helpful to include the model weights in the output of ensemble_forecast. Something like:

function (predictions, dataset, clamp_zero = TRUE) 
{
    for (i in 1:length(dataset)) {
        weighted_ff <- as.vector(t(predictions[i, ]) %*% dataset[[i]]$ff)
        if (clamp_zero) {
            weighted_ff[weighted_ff < 0] <- 0
        }
        dataset[[i]]$y_hat <- weighted_ff

       dataset[[i]]$weights <- predictions[i, ] # added this line
    }
    dataset
}