1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| donnees <- read.table(header = TRUE, sep=",", text = "
V1;V2;V3;V4;V5;V6
2014;1001;1855;2423;2988;3335;3483
2015;1113;2103;2774;3422;3844;
2016;1269;2433;3233;3977;;
2017;1490;2873;3880;;;
2018;1725;3261;;;;
2019;1889;;;;;
")
x=as.matrix(donnees)
x
#> V1.V2.V3.V4.V5.V6
#> [1,] "2014;1001;1855;2423;2988;3335;3483"
#> [2,] "2015;1113;2103;2774;3422;3844;"
#> [3,] "2016;1269;2433;3233;3977;;"
#> [4,] "2017;1490;2873;3880;;;"
#> [5,] "2018;1725;3261;;;;"
#> [6,] "2019;1889;;;;;"
x=ChainLadder::incr2cum(x)
#> Warning in apply(Triangle, 1, cumsum): NAs introduits lors de la conversion
#> automatique
#> Warning in apply(Triangle, 1, cumsum): NAs introduits lors de la conversion
#> automatique
#> Warning in apply(Triangle, 1, cumsum): NAs introduits lors de la conversion
#> automatique
#> Warning in apply(Triangle, 1, cumsum): NAs introduits lors de la conversion
#> automatique
#> Warning in apply(Triangle, 1, cumsum): NAs introduits lors de la conversion
#> automatique
#> Warning in apply(Triangle, 1, cumsum): NAs introduits lors de la conversion
#> automatique
#> Error in dimnames(cum) <- dimnames(Triangle): la longueur de 'dimnames' [2] n'est pas égale à l'étendue du tableau
# Created on 2020-09-03 by the reprex package (v0.3.0) |
Partager