Revised getbaseline() in utility_functions.R to use which.min(abs()) instead of abs() which erroneously dropped the negative sign.