Wrong values in shap sign column

[hbaniecki]

The sign column should be updated on new values of the contribution column.

iBreakDown/R/break_down_uncertainty.R

Lines 156 to 163 in 28fc66e

	extracted_contributions <- sapply(result, function(chunk) {
	chunk[order(chunk$label, chunk$variable), "contribution"]
	})
	result_average <- result[[1]]
	result_average <- result_average[order(result_average$label, result_average$variable),]
	result_average$contribution <- rowMeans(extracted_contributions)
	result_average$B <- 0
	result <- c(list(result_average), result)