Imported from https://github.com/YipengUva/RpESCA