| mean.expert {expert} | R Documentation |
Mean of objects of class "expert".
## S3 method for class 'expert': mean(x, ...)
x |
an object of class "expert". |
... |
further arguments passed to or from other methods. |
The mean of a distribution with probabilities p[1], ..., p[r] on intervals defined by the boundaries c[1], ..., c[r] is
sum(j; (c[j - 1] + c[j])/2 * p[j]).
A numeric value.
Klugman, S. A., Panjer, H. H. and Willmot, G. E. (1998), Loss Models, From Data to Decisions, Wiley.
expert to create objects of class "expert"
x <- list(E1 <- list(A1 <- c(0.14, 0.22, 0.28),
A2 <- c(130000, 150000, 200000),
X <- c(350000, 400000, 525000)),
E2 <- list(A1 <- c(0.2, 0.3, 0.4),
A2 <- c(165000, 205000, 250000),
X <- c(550000, 600000, 650000)),
E3 <- list(A1 <- c(0.2, 0.4, 0.52),
A2 <- c(200000, 400000, 500000),
X <- c(625000, 700000, 800000)))
probs <- c(0.1, 0.5, 0.9)
true.seed <- c(0.27, 210000)
fit <- expert(x, "cooke", probs, true.seed, 0.03)
mean(fit)