{\rtf1\mac\ansicpg10000\cocoartf102
{\fonttbl\f0\fswiss\fcharset77 Helvetica;\f1\fnil\fcharset77 Monaco;\f2\froman\fcharset77 TimesNewRomanPSMT;
}
{\colortbl;\red255\green255\blue255;\red0\green0\blue255;}
\paperw11900\paperh16840\margl1440\margr1440\vieww10880\viewh12120\viewkind0
\pard\tx720\tx1440\tx2160\tx2880\tx3600\tx4320\tx5040\tx5760\tx6480\tx7200\tx7920\tx8640\ql\qnatural

\f0\fs24 \cf0 premi\'8fre exemple\
ecriture_for = function(nombre)\
\{\
for (i in 1 : nombre)\
\{\
print(i)\
\}\
\}\
\
deuxi\'8fme exemple \
\
ecriture_while = function(nbre)\
\{\
i = 1\
while (i <= nbre)\
\{\
print(i)\
i = i+1\
\}\
\}\
\
Troisi\'8fme exemple avec for\
\
ecriture_pair = function(nombre)\
\{\
for (i in 1: nombre)\
	\{\
	 if (i%%2 == 0)\
		\{	\
		 print(i)\
		\}\
	\}\
\}\
\
\
Troisi\'8fme bis exemple avec for\
\
ecriture_pair = function(nombre)\
\{\
for (i in 1: nombre)\
	\{\
	 if (i%%2 == 0 && i != nombre)\
		\{	\
		 print(i)\
		\}\
	\}\
\}\
\
Troisi\'8fme ter exemple avec for\
\
ecriture_pair = function(nombre)\
\{\
for (i in 1: nombre)\
	\{\
	 if (i%%2 == 0 || i != nombre)\
		\{	\
		 print(i)\
		\}\
	\}\
\}\
\
\
quatri\'8fme exemple avec while (b\'90te)\
\
ecriture_pair = function(nombre)\
\{\
i = 1\
while (i <= nombre)\
	\{\
	 if (i%%2 == 0)\
		\{	\
		 print(i)\
		\}\
	 i = i+1\
	\}\
\}\
\
quatri\'8fme exemple avec while (intelligent)\
\
ecriture_pair = function(nombre)\
\{\
i = 2\
while (i <= nombre)\
	\{\
	 print(i)\
	 i = i+2\
	\}\
\}\
\
\pard\ql\qnatural
\cf0 Cinqui\'8fme exemple\
\
pair_carre = function(nombre)\
\{\
\pard\fi708\ql\qnatural
\cf0 if (nombre%%2 == 0)\
\pard\li708\fi708\ql\qnatural
\cf0 print(paste("Le nombre", nombre, "est pair"))\
\pard\li708\ql\qnatural
\cf0 else\
\pard\li708\fi708\ql\qnatural
\cf0 print(paste("Le nombre ", nombre, " est impair"))\
\pard\li708\ql\qnatural
\cf0 carre = nombre^2\
print(paste("qu'il soit pair ou impair, une chose est sure, le carre de", nombre, "est ", carre))\
\pard\ql\qnatural
\cf0 \}\
\
Sixi\'8fme exemple\
\
factoriel1 = function(nombre)\
\{\
\pard\fi708\ql\qnatural
\cf0 facto = 1\
for (i in 1 : nombre)\
\pard\li708\fi708\ql\qnatural
\cf0 facto = facto*i\
\pard\fi708\ql\qnatural
\cf0 \
print(paste(" Le factoriel de", nombre, "est", facto))\
\pard\ql\qnatural
\cf0 \}
\f1\fs18 \cf2 \
\
\

\f0\fs24 \cf0 Septi\'8fme exemple\
\
factoriel2 = function(nombre)\
\{\
\pard\fi708\ql\qnatural
\cf0 facto = 1\
i = 1\
while (i <= nombre)\
\{\
\pard\li708\fi708\ql\qnatural
\cf0 facto = facto*i\
i = i+1\
\pard\fi708\ql\qnatural
\cf0 \}\
print(paste(" Le factoriel de", nombre, "est", facto))\
\pard\ql\qnatural
\cf0 \}\
\
\
\pard\tx720\tx1440\tx2160\tx2880\tx3600\tx4320\tx5040\tx5760\tx6480\tx7200\tx7920\tx8640\ql\qnatural
\cf0 identite = function(dimension)\
\{\
	X = matrix(0, dimension, dimension)\
	for (i in 1:dimension)\
	\{\
		for (j in 1: dimension)\
		\{\
			if (i==j)\
			X[i, j] = 1\
		\}\
	\}\
	return(X)\
\}\
\pard\ql\qnatural
\cf0 \
huiti\'8fme exemple : tirage al\'8eatoire d'\'8etudiants\
\
nom_etudiant = c("Odile", "Arthur", "Fadili", "Olivier", "Raphael", "Pascal", "Rodrigue", "Bernard", "Mohammed", "Sebastien", "Eddy", "Hamid", "Marie-Jo", "Joel", "Thi-Hong", "Francois", "Vincent", "Alain", "Christophe", "Aicha", "Fabrice", "Youssef", "Assia", "Martial")\
\
tirage_aleatoire_etudiant = function(nom_etudiant)\
\{\
tirage = sample(1:length(nom_etudiant), 1)\
nom = nom_etudiant[tirage[1]];\
cat(paste(nom,", au tableau !!!"))\
result = list(nom, tirage[1])\
return(result)\
\}\
\
result = tirage_aleatoire_etudiant(nom_etudiant); nom_etudiant = nom_etudiant[-result[[2]]];\
\
\
neuvi\'8fme exemple : stockage des coefficients de la r\'8egression logistique\
\
\pard\tx720\tx1440\tx2160\tx2880\tx3600\tx4320\tx5040\tx5760\tx6480\tx7200\tx7920\tx8640\ql\qnatural
\cf0 coef_logistic = function(X, Y)\
\{\
b = numeric(dim(X)[2])\
 for (i in 1 : dim(X)[2])\
	\{\
	result.polr = polr(as.factor(Y) ~ X[ , i])\
	b[i] = result.polr[[1]][1]\
	\}\
return(b)\
\
\}\
\
\
Pour les vins de bordeaux\
A = read.table("/bordeaux_R.txt", header = TRUE, sep = "\\t")\
var = A[ , 2:5]\
target = A[ ,6]\
b = coef_logistic(var, target)
\f2\fs32 \
\pard\tx560\tx1120\tx1680\tx2240\tx2800\tx3360\tx3920\tx4480\tx5040\tx5600\tx6160\tx6720\ql\qnatural

\f0\fs24 \cf0 \
\pard\ql\qnatural
\cf0 \
\pard\ql\qnatural

\f1\fs18 \cf2 \
}