
eraminus(ERA, ParkFactor, LeagueERA)
## The function is currently defined as
function (ERA, ParkFactor, LeagueERA)
{
eraminus <- (ERA + (ERA - (ERA * (ParkFactor/100))))/(LeagueERA) *
100
return(eraminus)
}
Run the code above in your browser using DataLab