# 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")
Run the code above in your browser using DataLab