data(Universityfunds)
head(Universityfunds)
E = 717293.11
d <- Universityfunds$Claim-Universityfunds$Entitlement
E = E-sum(Universityfunds$Entitlement)
Universityfunds$Entitlement+CEA(E,d)
Universityfunds$Entitlement+PRO(E,d)
Run the code above in your browser using DataLab