Earned Value (EV).
Examples
# Set the BAC and actual % complete for a toy project.
bac <- 100000
actual_per_complete <- 0.35
# Calculate the EV and print the results.
ev <- ev(bac, actual_per_complete)
cat("Earned Value (EV):", ev, "\n")
#> Earned Value (EV): 35000