关于ogive和elev，我的理解是
1）ogvie(x)，x as grouped.data, with endpoints and frequencies，这样ogive(x)其实是利用x构建了一个cdf函数，只不过是阶梯状的，ff <- ogive(x)之后，用ff(y)就可算出在这样的一个cdf下的概率值
2)同样的思路，elev(x) x as claim data，用x(原始损失额)来计算指定限额下的均值，所以ff <- elev(x)之后，ff(limit)返回的就是x做为原始损失额，limit为限额的limited expectation。
实际上这是一个返回值为函数的特殊函数，也许不特殊，但我没怎么遇到过，除了ecdf。如下面这个简单的例子：
ww <- function(x){
xx <- function(y){
if (y < x)
z <-1
else
z <-0
z
}
xx
}
yy <- ww(3)
yy(4)
