Utiliser R comme une calculatrice

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

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
a<-sqrt(17) # racine carre
2
b<-exp(1.5) # exponentielle
3
c<-log(13) # logarithme neeren par defat
4
c<-log(13,exp(1))# ici on precis la base
5
d<-log(2,10) # logarithme decimae
6
D<-log(3,2)# logarithme de base 2
7
M<-a*b-c
8
M
a<-sqrt(17) # racine carre
b<-exp(1.5) # exponentielle
c<-log(13) # logarithme neeren par defat
c<-log(13,exp(1))# ici on precis la base
d<-log(2,10) # logarithme decimae
D<-log(3,2)# logarithme de base 2
M<-a*b-c
M
num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
round(M,2)
2
s
round(M,2)
s

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

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
R<-c(0:6)
2
R
R<-c(0:6)
R

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

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
S<-seq(0,3,0.2)
2
S
S<-seq(0,3,0.2)
S

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

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
suitenum<-seq(1,2,length=10)
2
suitenum
suitenum<-seq(1,2,length=10)
suitenum

Table de multiplication de 6

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
chiffre<-c(1:9)
2
M6<-chiffre*6
3
M6
chiffre<-c(1:9)
M6<-chiffre*6
M6

Trier des nombres donnes

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
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
X<-c(log(2),exp(-1), sqrt(2),2*cos(pi/5), tan(pi/7))
X<-round(X,3)
sort(X) # ordre croissant
num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
sort(X,decreasing = TRUE)# ordre decroissant
sort(X,decreasing = TRUE)# ordre decroissant

Répéter une séquence

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
Repeter<-rep('bla',4)
2
Repeter
Repeter<-rep('bla',4)
Repeter

Créer une fonction numérique

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
f<-function(x)
2
{
3
return((x+1)*exp(-x))
4
}
5
f(0)
f<-function(x)
{
return((x+1)*exp(-x))
}
f(0)

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

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
g<-function(x)
2
{
3
return(exp(-x^2))
4
}
5
I<-integrate(g,0,1)$value
6
round(I,2)
g<-function(x)
{
return(exp(-x^2))
}
I<-integrate(g,0,1)$value
round(I,2)
num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
P<-integrate(dnorm,-1.96,1.96)$value# densit de la loi normale standard
2
round(P,4)
P<-integrate(dnorm,-1.96,1.96)$value# densit de la loi normale standard
round(P,4)

Concaténer

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
CT<-'Bac'
2
CT<-paste(CT,' srie scientifique')
3
CT
CT<-'Bac'
CT<-paste(CT,' srie scientifique')
CT

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

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
tab<-c(seq(1,2,0.5),5:7)
2
tab
tab<-c(seq(1,2,0.5),5:7)
tab
num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
1
tab<-append(tab,c(10,100,1000,10000))
2
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

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\)

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
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)
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 :

num. | Ligne | texte | copie |
CTRL+C pour copier, CTRL+V pour coller
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))
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))