Using the "WhatIf" package to evaluate counterfactuals