Bonjour,
Une suggestion :
1) Charger le code de la fonction s.corcircle dans un fichier texte et l'éditer avec son éditeur préféré
2) Changer la première ligne
Code : Tout sélectionner
function (dfxy, xax = 1, yax = 2, label = row.names(df), clabel = 1,
en
Code : Tout sélectionner
s.mycorcircle <- function (dfxy, xax = 1, yax = 2, label = row.names(df), clabel = 1,
3) Changer la ligne suivante (avec ma version, c'est la 6ème ligne avant la fin) :
en :
Code : Tout sélectionner
scatterutil.eti.circ(x, y, label, clabel, origin, boxes=FALSE)
4) Sauver le fichier et le charger dans R
5) Exécuter
Code : Tout sélectionner
s.mycorcircle(acm$co, 1, 2, clabel = 0.7, sub = "H: 1 et V:2")