opsplus: OPS+
In Sabermetrics: Sabermetrics Functions for Baseball Analytics

Description Usage Arguments Value Author(s) References See Also Examples

A useful metric to describe a hitter's ability in terms of the league.

1	opsplus(obp, slg, lgOBP, lgSLG)

`obp`	On-base percentage
`slg`	Slugging percentage
`lgOBP`	League OBP
`lgSLG`	League Slugging Percentage

Returns a numerical value equal to ((obp/lgOBP)+(slg/lgSLG)-1)*100

100 = League Average 90 = 10 percent BELOW League Average 110 = 10 percent ABOVE League Average

Peter Xenopoulos

http://sports.yahoo.com/mlb/blog/big_league_stew/post/Everything-you-always-wanted-to-know-about-OPS-?urn=mlb,204667

http://www.fangraphs.com/library/offense/ops/

ops, slg, obp

## Let's calculate Mike Trout's 2014 OPS+
## He had an OBP = .377 and a SLG = .561
## League OBP = .316 and League SLG = .404 
## We should get 158.1652 as our output
opsplus(.377,.561,.316,.404)

## The function is currently defined as
function (obp, slg, lgOBP, lgSLG) 
{
    opsplus <- ((obp/lgOBP) + (slg/lgSLG) - 1) * 100
    return(opsplus)
  }