## The function is currently defined as
function (AB, H, TB, BB, IBB, HBP, CS, SB, SH, SF)
{
raweqa <- (H + TB + 1.5 * (BB + HBP + SB) + SH + SF - IBB/2)/(AB +
BB + HBP + SH + SF + CS + SB)
return(raweqa)
}
Run the code above in your browser using DataLab