metric <- "ROI"

result <- switch(metric,
                 "ROI" = {
                   # Code to calculate Return on Investment
                   investment <- 10000
                   return <- 12000
                   roi <- (return - investment) / investment
                   roi
                 },
                 "ROE" = {
                   # Code to calculate Return on Equity
                   net_income <- 5000
                   shareholder_equity <- 25000
                   roe <- net_income / shareholder_equity
                   roe
                 },
                 "EPS" = {
                   # Code to calculate Earnings Per Share
                   net_income <- 5000
                   shares_outstanding <- 1000
                   eps <- net_income / shares_outstanding
                   eps
                 },
                 "Invalid Metric")

print(result)