Ex1 #bureautique /2

banque=read.table('banque.txt',header=TRUE,stringsAsFactors=TRUE)
attach(banque)
1. facteur
2.banque[10,]
3.table(CSP)#mode employ
4.dossierassure[1878,] #5 sinistres sur 10 ans
5.sum(sinis1)#543


Ex2#peage /4

N=c(rep(0,40),rep(1,130),rep(2,228),rep(3,255),rep(4,164),rep(5,111),rep(6,43),
rep(7,18),rep(8,10),rep(9,0),rep(10,1))

m=mean(N)#3.036
var(N)#2.69 assez différent de m
plot(table(N)/1000,type='h')
x=0:10
lines(x,dpois(x,m))#pas parfait en 3

Ex3# durée de vie/4
dvie=c(runif(400,0,2000),runif(150,2000,3000),runif(100,3000,4000),runif(150,4000,7000))
hist(dvie,freq=FALSE,breaks=c(0,2000,3000,4000,7000))
m=mean(dvie)
x=1:7000
lines(x,dexp(x,1/m)


Ex4# proba#bonus /3 à commenter reprendre pnorm qnorm etc...
ex5 composant/4
#réflexion graphique

ex5b /2
commenteer les formes avec classes modales
ex6/4

entreprise=read.table('entreprise.txt',header=TRUE,stringsAsFactors=TRUE)
attach(entreprise)
hist(ratio, freq=FALSE,nclass=4)

hist(ratio, freq=FALSE,nclass=10)