profit.factor:
In apxu-devil/OptionsStaff: What the package does (short line)

1	profit.factor(strat, ptc, s1, def, price)

`strat`
`ptc`
`s1`
`def`
`price`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (strat, ptc, s1, def, price) 
{
    if (strat == "call") {
        if (price <= s1) {
            prft = def
        }
        else {
            prft = def * (1 + ptc * (price/s1 - 1))
        }
    }
    if (strat == "put") {
        if (price >= s1) {
            prft = def
        }
        else {
            prft = def * (1 - ptc * (price/s1 - 1))
        }
    }
    return(prft)
  }