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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
|
##
##
##
table::stat@list(
group = "default" ## "all", "base", "user"
)
##
"freq" "pct", "row.pct", "col.pct", "chi" [...]
##
table( y ~ x, data = src, env = stat@include <- ("freq", "row.pct", "chi") )
##
## Ajout d'une fonction descriptive : le coefficient de corrélation polychorique
##
## Cette stat est calculée par défaut (-ie : sauf stat@exclude() <- "polychor")
##
table::stat@add(default=TRUE ) <- polychor( <option:arguments-par-défaut> )
## Ou bien ajout au moyen d'une fonction anonyme :
table::stat@add("polychor", replace=TRUE) <- compile( function(...){} )
## Passe une référence à la fonction polychor
## (-ie: toute modification de fonction dans l'environnement courant sera prise en compte lors l'appel de cette fonction par summary()
## Dans le cas de figure précédent, l'intégralité de la fonction est copié à la condition qu'elle ait déjà été compilée, sinon, erreur
##
table::stat@add(default=TRUE ) <- polychor::object@ref()
##
table::stat@list(
group = "user"
)
##
"polychor"
##
table(
"y"
, data = src
## les arguments des méthodes sont transmis au moyen de named vectors
, env = stat::(
@include <- ("chi", "polychor")
, chi::args@set <- (p.val = .01)
, polychor::args@set <- (iter.max= 100) ## estimation par le maximum de vraissemblance
)
)
## Suppression de la méthode du namespace stat de summary :
table::stat@rm("polychor")
##
## La même chose mais sans ajouter la méthode globalement
##
table(
"y"
, data = src
##
, env = stat@(
add <- polychor(method="MAP") ## ajoute polychor estimé par la méthode bayesienne du maximum a posteriori
, include <- ("chi") ## polychor est inclue par défaut (quel intérêt sinon ?)
)
) |
Partager