Discussion :

[Djamely]

Bonsoir à tous,
Je suis débutante avec la fonction "function", je connais l’architecture globale qui crée une fonction dans R comme par exemple :

Code :

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

1
2
3
4
5
6
7
8
nomdemafonction<-function(variable1,variable2...)
{
#ici on met le contenu de la fonction (généralement on effectue des transformations aux variables passées en argument) 
return(Variabledesortie)# il s'agit du résultat que va renvoyer la fonction
}
 
#une fois la fonction créée on peut l'utiliser:
 nomdemafonction(varA,varB)

Ce que je ne sais pas, c'est comment trouver les erreurs et les problèmes d’exécution.
Merci d'avance.

[ced]

Bonjour,

Ce dont vous avez besoin pour ça, c'est d'un débugger.
Il est possible de débugger avec R en ligne de commande (fonction browse par exemple), mais c'est relativement complexe.
Le mieux, pour ça, c'est donc de passer par un IDE qui présente cette fonctionnalité graphiquement. Par exemple, vous avez RStudio, et voici un article qui présente ses fonctions pour le débuggage.
Vous pouvez aussi le faire avec le plugin StatEt pour Eclipse, qui dispose d'un débugger graphique.

D'autres solutions sont certainement possibles, ce ne sont là que quelques pistes.

[Djamely]

Bonsoir,
Merci de votre aide.
J'ai un programme comme cet exemple, je voudrais savoir comment trouver les erreurs et les problèmes d’exécution, dans le cas où vous n’avez aucune idée d'où se trouve l’erreur. Quelle est la fonction que nous utilisons dans ce cas ? La dernière question : comment connaître le temps d’exécution que dure une fonction ou un script ?

Code :

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

1
2
3
4
5
6
7
8
9
CentrageReduction <- function( x )
{
x=c(1,2,3,4,5)
xCentre<- x - mean( x )
variance <- var( x )
EcartType<- variance ^ (1/2)
xCentreReduit <- xCentre / Ecart.Type
return( xCentreReduit )
}

Merci d'avance.

[Emmanuel R]

Bonsoir,
Tu n'obtiens vraiment aucun message d'erreur ? En copiant collant tel quel et en exécutant CentrageFonction(x), j'obtiens "Error in CentrageReduction(x) : object 'Ecart.Type' not found".
Et effectivement, à la 7e ligne, tu fais un calcul avec Ecart.Type alors que tu as défini EcartType... Sans point, donc...

Sinon, quelques petites remarques :

1) Tu es censée passer x en paramètre, ça n'a pas de sens de le redéfinir à l'intérieur de ta fonction. Retire donc la 3e ligne dans ta fonction, et exécute plutôt ceci :

Code :

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

1
2
fct.x=c(1,2,3,4,5)
resultat = CentrageReduction(fct.x)

2) Je ne connais pas trop les débuggers. Par contre, pour débugger manuellement, je te conseille de simplement enregistrer tes paramètres dans des variables, et d'exécuter le corps de la fonction pas à pas. C'est à dire que tu exécutes seulement ceci :

Code :

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

1
2
3
4
5
6
7
#Définition des paramètres
x=c(1,2,3,4,5)
# Recopiage du corps de la fonction et exécution pas à pas
xCentre<- x - mean( x )
variance <- var( x )
EcartType<- variance ^ (1/2)
xCentreReduit <- xCentre / Ecart.Type

Et dans ce cas là tu vois bien que tu as ton erreur à la dernière ligne...

Pour ta dernière question sur le temps d'exécution : ça dépend de si tu utilises des boucles, de ta volumétrie... C'est un peu compliqué de te répondre comme ça.
Pour la fonction que tu nous propose, elle ne prend quasiment pas de temps. Mais si tu veux t'imprégner un peu du sujet, je te conseille le lien Wikipédia sur la complexité des algorithmes...

Bonne soirée.