Cost Performance Index (CPI).
Arguments
- ev
Earned Value.
- ac
Actual Cost.
Value
The function returns the Cost Performance Index (CPI) of work completed.
Examples
bac <- 100000
actual_per_complete <- 0.35
ev <- ev(bac, actual_per_complete)
actual_costs <- c(9000, 18000, 36000, 70000, 100000)
time_period <- 3
ac <- ac(actual_costs, time_period)
cpi <- cpi(ev, ac)
cat("Cost Performance Index (CPI):", cpi, "\n")
#> Cost Performance Index (CPI): 0.9722222