calculating costs using R