Travaux Pratiques #1
Algo & Prog avec R

1. Allez sur le site du projet R : http://www.r-project.org/
2. Télécharger la version de R correspondant à votre système d’exploitation (Linux, Windows, Mac OS)
3. Double cliquer sur le fichier téléchargé pour installer R.

Sous Linux, il est recommandé de passer directement par le gestionnaire de paquet :

• sudo dnf install R (Fedora)
• sudo apt-get install r-base (Debian/Ubuntu)

1. Allez sur la page de téléchargement de RStudio.
2. Télécharger la version de RStudio correspondant à votre système d’exploitation (Linux, Windows, Mac OS)
3. Double cliquer sur le fichier téléchargé pour installer RStudio

Quand R et Rstudio sont installés, ouvrez RStudio en vérifiant l’absence de message d’erreur.

Quelle est la valeur de chacune des expressions suivantes :

4 %/% 5 * 3 + 5 %/% 3
4 %/% 5 * (3 + 5) %/% 3

N.B. Il est de bonne pratique de laisser un espace de part et d’autre d’un opérateur : il est plus facile de lire 2 – x // y que 2-x%/%y …

1. Si n est un entier écrit en décimal, que représentent au niveau des chiffres les opérations n %/% 10 et n %% 10 ?
2. Quelle opération permet de savoir si un entier n est un multiple d’un entier d ?
3. Quelle opération arithmétique permet de savoir si un entier n est pair ?
4. Demandez en une ligne si 5^4 est plus grand que 4^5.
5. Calculez la moyenne des entiers de 1 à 10. Le résultat est un nombre flottant (à virgule).
6. Calculez la moyenne des entiers de 1 à 11. Ne retapez pas la formule complète, mais modifiez la précédente en tapant la flèche haut qui va chercher les lignes précédemment entrées (ce que les programmeurs nomment l’historique). On utilise la flèche bas en sens inverse.
7. Vérifiez que les règles de calcul sur l’infini sont à peu près respectées.

n <- 1234
cat("n =",n, '\n')
cat(n %% 10, "represente le chiffre des unites de", n,"en base 10 (decimal)\n")
cat(n %% 2, "represente le chiffre des unites de", n,"en base 2 (binaire)\n")
cat(n %/% 10, "represente le nombre obtenu en gommant le chiffre des unites en base 10 (decalage a droite)\n")
cat(n %/% 2, "represente le nombre obtenu en gommant le chiffre des unites en base 2 (decalage a droite)\n")
cat(n,'est multiple de 3 :',n%%3==0, '\n')
cat(n,'est multiple de 2 :',n%%2==0, '\n')
cat('5 ** 4 > 4 ** 5 :',5 ** 4 > 4 ** 5, '\n')
cat('Moyenne des entiers de [1,10] :',(1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10) / 10, '\n')

n = 1234
4 represente le chiffre des unites de 1234 en base 10 (decimal)
0 represente le chiffre des unites de 1234 en base 2 (binaire)
123 represente le nombre obtenu en gommant le chiffre des unites en base 10 (decalage a droite)
617 represente le nombre obtenu en gommant le chiffre des unites en base 2 (decalage a droite)
1234 est multiple de 3 : FALSE
1234 est multiple de 2 : TRUE
5 ** 4 > 4 ** 5 : FALSE
Moyenne des entiers de [1,10] : 5.5

# À l'infini
cat('3 * Inf =',3 * Inf, '\n')
cat('-2 * Inf =',-2 * Inf, '\n')
cat('1 / 0 =',1/0, '\n')
# À zéro
cat('1 / Inf =',1 / Inf, '\n')
cat('0 / Inf =',0 / Inf, '\n')
## NaN signifie "Not A Number", forme indeterminee.
cat('Inf / Inf =',Inf / Inf, '\n')
cat('0 / 0 =',0 / 0, '\n')

1. Définissez deux variables: p ayant pour valeur 5 et q ayant pour valeur 3p.
2. Avec une seule instruction cat(...), faites afficher la phrase suivante :
   p vaut 5 et q vaut 15, leur somme fait 20
   N.B. La solution suivante n’est PAS celle que l’on attend : cat('p vaut 5 et q vaut 15, leur somme fait 20\n').
3. Demandez en R « q est-il un multiple de p? ».
4. Au toplevel, traduisez en R la phrase suivante : si q est un multiple de p, afficher OUI sinon afficher NON
5. Sans consulter vos notes de cours, écrivez au toplevel les lignes de code permettant d’échanger les valeurs de p et q, en utilisant une variable temporaire tmp. Vérifiez ensuite que les valeurs de p et q ont bien été permutées.
6. Echangez à nouveau les valeurs de p et q, mais SANS utiliser de variable temporaire! Soyez astucieux, jouez avec des opérations arithmétiques …

p <- 5
q <- 3*p
cat('p vaut',p,'et q vaut',q,', leur somme fait',p + q, '\n')

cat('Est-ce que ', q, 'est un multiple de', p, '?', q %% p == 0, '\n')

## echange de deux variables p et q, avec une variable temporaire
tmp <- p
p <- q
q <- tmp
cat('Apres echange, p =',p,'et q =',q, '\n')


## Si p et q sont deux nombres, on peut realiser astucieusement l'echange sans
## variable temporaire, mais en jouant sur les operations arithmetiques.
## Il s'agit d'un exo theorique, personne ne fait vraiment cela !
p <- p + q
q <- p - q
p <- p - q
cat('Apres echange, p =',p,'et q =', q, '\n')

p vaut 5 et q vaut 15 , leur somme fait 20
Est-ce que  15 est un multiple de 5 ? TRUE
Apres echange, p = 15 et q = 5
Apres echange, p = 5 et q = 15

Comme tout langage de programmation, R est constitué d’un noyau relativement réduit et d’un nombre important de modules. Un module fournit un ensemble de fonctions spécialisées dans une tâche donnée (maths, Internet, images, musique, etc).

Il est essentiel de savoir obtenir de l’aide pour trouver ou utiliser les fonctions adéquates.

help.start()        # sommaire general de l'aide
help(foo)           # aide sur la fonction foo
?foo                # la même chose
apropos("foo")      # liste toutes les fonctions contenant la chaîne foo
example(foo)        # exécute les exemples de la fonction foo
RSiteSearch("foo")  # recherche la chaîne foo dans les manuels et les listes de diffusion

1. À quoi sert la fonction print ? cat ? paste ?
2. Est-ce que la fonction printf existe ? Existe-t’il d’autres fonctions de la famille printf ? Lesquelles ?