Utiliser R comme une calculatrice

Une simple opération de type : \(a \times b - c\) puis arrondir a 2 chiffres

1
a<-sqrt(17) # racine carre
2
b<-exp(1.5) # exponentielle
3
c<-log(13) # logarithme neperien par defaut
4
c<-log(13,exp(1))# ici on precise la base
5
d<-log(2,10) # logarithme decimale
6
D<-log(3,2)# logarithme de base 2
7
M<-a*b-c
8
M
1
round(M,2)

Créer une suite arithmétique : premier terme 0, la raison 1, dernier terme 6

1
R<-c(0:6)
2
R

Créer une suite arithmétique : premier terme 0, la raison 0.2, le dernier terme est 3

1
S<-seq(0,3,0.2)
2
S

Créer une suite dont on connait le premier terme , le dernier terme et la longueur

1
suitenum<-seq(1,2,length=10)
2
suitenum

Table de multiplication de 6

1
chiffre<-c(1:9)
2
M6<-chiffre*6
3
M6

Trier des nombres donnes

1
X<-c(log(2),exp(-1), sqrt(2),2*cos(pi/5), tan(pi/7))
2
X<-round(X,3)
3
sort(X) # ordre croissant
1
sort(X,decreasing = TRUE)# ordre decroissant

Répéter une séquence

1
Repeter<-rep('bla',4)
2
Repeter

Créer une fonction numérique

1
f<-function(x)
2
{
3
return((x+1)*exp(-x))
4
}
5
f(0)

Calculer une intégrale : \(\int_0^1 e^{-x^2} dx\)

1
g<-function(x)
2
{
3
return(exp(-x^2))
4
}
5
I<-integrate(g,0,1)$value
6
round(I,2)
1
P<-integrate(dnorm,-1.96,1.96)$value # densité de la loi normale standard
2
round(P,4)

Concaténer

1
CT<-'Bac'
2
CT<-paste(CT,'série scientifique')
3
CT

Ajouter des éléments a un tableau ou un vecteur existant

1
tab<-c(seq(1,2,0.5),5:7)
2
tab
1
tab<-append(tab,c(10,100,1000,10000))
2
tab

Tableau d'effectif :

Il existe une fonction très utile dans les simulations : la fonction table(), cette fonction permet de créer un tableau d'effectifs :

supposons qu'un vecteur X contient les valeurs suivantes :

2 1 5 3 3 4 3 5 3 5 3 1 4 6 4 1 3 6 1 1

Avec table(X) on obtient :

1 2 3 4 5 6

5 1 6 3 3 2

1
X<-c(2,1,5,3,3,4,3,5,3,5,3,1,4,6,4,1,3,6,1,1)
2
table(X)

Comparer deux vecteurs de même longueur :

Pour chaque indice \(i\), on compare \(V_1[i]\) a \(V_2[i]\), le résultat obtenu est un vecteur logique de même longueur que \(V_1\) et \(V_2\)

1
V_1<-c(2, 1 ,5 ,3 ,3, 4, 3, 5, 3, 5, 3 ,1, 4, 6 ,4 ,1, 3, 6, 1, 1)
2
V_2<-c(1, 3 ,2 ,4 ,2, 1, 3, 3 ,1, 4, 4, 5, 2, 2, 4, 6, 1, 4, 5, 4)
3
result<-c(V_1==V_2)

On peut éventuellement trier ( avec la fonction sort()) les deux vecteurs avant de les comparer ce qui donne :

1
V_1<-c(2, 1 ,5 ,3 ,3, 4, 3, 5, 3, 5, 3 ,1, 4, 6 ,4 ,1, 3, 6, 1, 1)
2
V_2<-c(1, 3 ,2 ,4 ,2, 1, 3, 3 ,1, 4, 4, 5, 2, 2, 4, 6, 1, 4, 5, 4
3
)
4
result<-c(sort(V_1)==sort(V_2))