Utiliser R comme une calculatrice
Une simple opération de type : \(a \times b - c\) puis arrondir a 2 chiffres
a<-sqrt(17) # racine carre
b<-exp(1.5) # exponentielle
c<-log(13) # logarithme neperien par defaut
c<-log(13,exp(1))# ici on precise la base
d<-log(2,10) # logarithme decimale
D<-log(3,2)# logarithme de base 2
M<-a*b-c
M
round(M,2)
Créer une suite arithmétique : premier terme 0, la raison 1, dernier terme 6
R<-c(0:6)
R
Créer une suite arithmétique : premier terme 0, la raison 0.2, le dernier terme est 3
S<-seq(0,3,0.2)
S
Créer une suite dont on connait le premier terme , le dernier terme et la longueur
suitenum<-seq(1,2,length=10)
suitenum
Table de multiplication de 6
chiffre<-c(1:9)
M6<-chiffre*6
M6
Trier des nombres donnes
X<-c(log(2),exp(-1), sqrt(2),2*cos(pi/5), tan(pi/7))
X<-round(X,3)
sort(X) # ordre croissant
sort(X,decreasing = TRUE)# ordre decroissant
Répéter une séquence
Repeter<-rep('bla',4)
Repeter
Créer une fonction numérique
f<-function(x)
{
return((x+1)*exp(-x))
}
f(0)
Calculer une intégrale : \(\int_0^1 e^{-x^2} dx\)
g<-function(x)
{
return(exp(-x^2))
}
I<-integrate(g,0,1)$value
round(I,2)
P<-integrate(dnorm,-1.96,1.96)$value # densité de la loi normale standard
round(P,4)
Concaténer
CT<-'Bac'
CT<-paste(CT,'série scientifique')
CT
Ajouter des éléments a un tableau ou un vecteur existant
tab<-c(seq(1,2,0.5),5:7)
tab
tab<-append(tab,c(10,100,1000,10000))
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
X<-c(2,1,5,3,3,4,3,5,3,5,3,1,4,6,4,1,3,6,1,1)
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\)
V_1<-c(2, 1 ,5 ,3 ,3, 4, 3, 5, 3, 5, 3 ,1, 4, 6 ,4 ,1, 3, 6, 1, 1)
V_2<-c(1, 3 ,2 ,4 ,2, 1, 3, 3 ,1, 4, 4, 5, 2, 2, 4, 6, 1, 4, 5, 4)
result<-c(V_1==V_2)
On peut éventuellement trier ( avec la fonction sort()) les deux vecteurs avant de les comparer ce qui donne :
V_1<-c(2, 1 ,5 ,3 ,3, 4, 3, 5, 3, 5, 3 ,1, 4, 6 ,4 ,1, 3, 6, 1, 1)
V_2<-c(1, 3 ,2 ,4 ,2, 1, 3, 3 ,1, 4, 4, 5, 2, 2, 4, 6, 1, 4, 5, 4
)
result<-c(sort(V_1)==sort(V_2))