Discussion :

[Hydro999]

Bonjour,

Dans le petit manuel de S4 j'ai les deux exemples suivants qui marche bien mais que je ne comprend pas :
1- definition de l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
setClass(
	Class="Trajectoires",
	representation=representation(
		temps = "numeric",
		traj = "matrix"
	)
)

2- methode :print

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
setMethod("print","Trajectoires",
	function(x,...){
		cat("*** Class Trajectoires, method Print ***\n")
		cat("* Temps = ");print(x@temps)
		cat("* Traj = \n");print(x@traj)
		cat("******* Fin Print(trajectoires) ******\n")
	}
)

3- methode :show

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
setMethod("show","Trajectoires",
	function(object){
		cat("*** Class Trajectoires, method Show ***\n")
		cat("* Temps = ");print(object@temps)
		nrowShow <- min(10,nrow(object@traj))
		ncolShow <- min(10,ncol(object@traj))
		cat("* Traj (limité à une matrice 10x10) = \n")
		if(length(object@traj)!=0){
			print(sur l(object@traj[1:nrowShow,1:ncolShow]),
			quote=FALSE)
		}else{}
		cat("* ... ...\n")
		cat("******* Fin Show(trajectoires) ******\n")
	}
)

a) la méthode show s'exécute par défaut, ce qui n'est pas le cas de la méthode print , pourquoi ?

b) dans la méthode print on a : function(x,...), dans la méthode show, on a :function(object) et lorsque je remplace dans la méthode print x par object ça plante mais je ne comprend pas pourquoi .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Erreur dans conformMethod(signature, mnames, fnames, f, fdef, definition) : 
  In method for function "print": formal arguments omitted in the method definition cannot be in the signature (x = "Trajectoires")

J'espère que quelqu'un à quelques lumières à m'apporter sur ce sujet.
Cdt

[Ayest]

Bonjour,

Ca fait un moment que je veux regarder la POO en R. Je profite de l'occasion pour faire quelques tests, mais je n'ai pas de réponses argumentées. Il me semble que le problème vient des signatures des méthodes 'show' et 'print'. En effet, si tu regardes l'aide de ces fonctions, tu verrras que l'argument de la méthode "générale" 'print' est 'x', alors que l'argument de la méthode 'show' est 'object'.
Voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
?print
?show

Voilà, ca fait un peu avancé le schmillblick, pas beaucoup, j'en conviens.
Pour info, j'avais parcouru il y a quelques temps, un document nommé "Petit Manuel de S4 - Programmation Orientée Objet sous R" disponible ici :
http://christophe.genolini.free.fr/w...rial/index.php

[Hydro999]

Bonjour,

Merci pour les infos.
J'ai l'impression ça viens bien des signatures, à condition que la methode ait soit définie par R car si on utilise une methode ayant pour signature "object" mais définie à partir de : setGeneric , elle n'est pas appelé automatiquement.

Sinon lorsque l'on a:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function(x,...)

quel est le sens des 3 points apres la virgule. Ca me semble un peu mystérieux.

Cdt
Hydro

[Ayest]

Sinon lorsque l'on a:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function(x,...)

quel est le sens des 3 points apres la virgule. Ca me semble un peu mystérieux.
Hydro

C'est du R classique : ca permet de passer un ou plusieurs paramètres supplémentaires à une fonction.

Dans l'exemple suivant, on utilise les 3 points dans la signature de la fonction 'loglogPlot' pour passer des options graphiques à la fonction standard 'plot' (sans avoir à connaitre aucune des options graphiques).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
loglogPlot <- function(x,y,...){
plot(log(x),log(y),...)
}
 
x <- rexp(30)
y <- rexp(30)
loglogPlot(x,y,main="Un titre",sub="Un sous-titre")
loglogPlot(x,y,pch="+")

Il me semble me rappeler qu'il existe la même notation en C++, non ?

[Hydro999]

Ok merci pour l'explication, ça commence à devenir plus clair .
Pour ce qui est de la notation en C++ je ne saurais pas te dire.

Cdt Hydro