Nous allons maintenant chercher à utiliser l'applette pour créer une fonction
nommée calculer_avis :
calculer_avis = function(c_math, c_ang, math, ang) {
for (i in seq(1, length(math))) {
if (moyenne[i] < 8) {
avis[i]='recale'
} else if (moyenne[i] < 10) {
avis[i]='oral'
} else {
avis[i]='admis'
}
}
return(avis)
}
Pour cela, nous allons utiliser un mécanisme de transformation
de code Xml et l'appliquer au deuxième code Xml
créé dans la section précédente :
-
étape 1 : mettre dans l'onglet Algorithme le code Xml
de la version "pour_si"
(Rq : ne pas prendre celui de la version "code_libre")
-
étape 2 : indiquer dans l'onglet Principal le critère de transformation,
c'est à dire ici l'option de calcul "Fonctions"
(voir écran)
-
étape 3 : dans l'onglet Algorithme, cliquer sur le bouton Transformer
Il ne reste plus qu'à cliquer sur le bouton Traduire pour obtenir un programme
R (ou Sas).
Attention, n'oubliez pas en général de vérifier le résultat obtenu et de le modifier,
la transformation de code Xml proposée par l'applette n'étant pas forcément aussi judicieuse qu'ici.