4+3
x=4+3
x<-4+3
is.integer(x)
z=as.integer(x)
is.integer(z)
sqrt(2)#racine carrée
exp(2)#fonction exponentielle
log(3)#fonction log
a=sqrt(3)
b=a+pi

#Definir un vecteur avec R
x=c(2,4,7,12)
x

x=c(23,25,27,28,29,45,47,68,70)
# [] désigne l'indice de la première quantité sur la ligne
y=c(rep(x,10))
y

#exercice sur le nombre d'oeufs pondus
x=c(5,3,4,3,7,5,4,3,9,7,3,4,5,7,4,8,4,9)
t=table(x)
t
x11()
barplot(t,col="red",main="effectifs oeufs pondus")

#vecteur augmenté
x=c(2,4,7,12)
y=c(x,5,8,13)
length(x)
length(y)

#mode des variables
x=c(2,4,6)
y=c("bleu","vert","marron")
z=c(TRUE,FALSE,TRUE,FALSE,FALSE)
mode(x)#numérique
mode(y)#character
mode(z)#logique

##entrée des données en utilisant scan
jeu1<-scan()
#on entre les données une par une, après 2 "enter" sans données, le vecteur est défini

#définition de séquences (séries)
x=1:12
x
y=2.5:15
y
#pour définir le pas ou la longueur de la série
seq(1,4,by=0.1)#le pas est de 0.1 (incrémentation)
seq(1,4.001,by=0.1)
seq(2,5,length.out=20)#la longueur de la suite est de 20 (nombre de graduations)
round(seq(2,5,length.out=20),2)# arrondi à 2 chiffres après la virgule
seq(2,5,length.out=7)

##Opérations sur les vecteurs
x=c(2,4,7,12)
2*x
x^2# coordonnées au carré
t=2*x+3 #l'operation se fait par coordonnées
y=2:6
x*y #message d'erreur, les longueurs sont différentes!

#rep("c",5)= repetition de c 5 fois
x=c("B","V",rep("M",2),"B","V","M","N","B","M","N",rep("V",2),"N","B","M","V","N","B","M")
x#couleur des yeux
length(x)
table(x)
x11()
plot(table(x),main="couleur des yeux")
mode(x) #"character"= variable qualitative
#mode de la distribution = "M"

##Extraire des coordonnées d'un vecteur
y=c(rep(2,3),13:19)
y
y[3]#3e coordonnée du vecteur y
y[-7]#enlève la 7e coordonnée de y
y[2:4]#extrait les coordonnées 2 à 4 de y

y=2.3:10
y
#extraction des coordonnées 1,3,5 de y 
y[c(1,3,5)]
y[3]=4#remplacement de la 3e coordonnée de y
y

#opérateurs booléens
x=1:10
y=rep(2.7,10)
x<y
x<=y

z=2*x+y
z
z<10

t=c(12,2,3,4.5,1.7,18,4.3,2)
t<5
t[t<5]
t[t<3]
t[t<=3]

# pour avoir "et" taper & pour avoir "ou" taper |
t[t<5&t>3]#pour extraire les valeurs de t <5 et >3
t[t<=3|t>10]#pour extraire les valeurs de t <=3 ou >10

#Construction de matrices
A=matrix(1:15,ncol=5)
A# remplissage par défaut en colonne

B=matrix(1:15,nc=5,byrow=TRUE)
B

C=matrix(1:15,ncol=4)
C
#extraction ligne 2, colonne 4 de A
A[2,4]
A[,3]#colonne 3 de A
A[1,]#ligne 1 de A
A[1:2,4]#ligne 1 et 2/colonne 4 de A
#extraire la matrice bloc ligne 1 et 2 et colonnes 3 à 5 de A
A[1:2,3:5]
#extraire la ligne 1 et 3 et colonnes 2 et 4 de B
B[c(1,3),c(2,4)]
dimnames(A)=list(c("a","b","c"),c("C1","C2","C3","C4","C5"))# pour renommer les lignes et colonnes de A