Chapitre 6. Programmation en R
229
5
class ( reg ) <- " reg1 "
6
return ( reg )
7 }
Il d´ efinit maintenant la m´ ethode affiche.reg1() qui pourra ˆ etre utilis´ ee
sur tout objet de classe reg1.
1 affiche . reg1 <- function ( reg ) {
2
plot ( reg $y , reg $x)
3
abline (a= reg $ bEst ,b= reg $ aEst )
4 }
5
6 resume . reg1 <- function ( reg ) return ( reg )
Il se lance alors dans quelques tests.
> reg <- reglin(y,x)
> resume(reg)
Error in eval(substitute(expr), envir, enclos) :
impossible de trouver la fonction "resume"
> affiche(reg)
Error in eval(substitute(expr), envir, enclos) :
impossible de trouver la fonction "affiche"
Surpris des erreurs d’affichage, il v´ erifie qu’il a bien d´ efini sa fonction
> resume.reg1(reg)
$y
[1] 1.8690093 -0.1242685 0.1070288 -0.9485351 1.3166447
[6] 0.7226569 -2.3292535 -0.6452325 -0.2341175 -1.1081607
$x
[1] 1 2 3 4 5 6 7 8 9 10
$aEst
[1] -0.218551
$bEst
[1] 0.08112825
attr(,"class")
[1] "reg1"
L’utilisateur avanc´ e lui signale que son erreur provient du fait qu’il a oubli´ e
de d´ eclarer les fonctions g´ en´ eriques resume() et affiche() qui ne sont pas
standard contrairement ` a quelques autres comme print() et summary().
1 resume <- function (x , ...) UseMethod (" resume ")
2 affiche <- function (x , ...) UseMethod (" affiche ")
Ex´ ecutons de nouveau les instructions pr´ ec´ edentes.
> resume(reg)
$y