Admin
Admin
Nombre de messages : 418
Date d'inscription : 27/09/2005
 |  Sujet: tp6  Mar 4 Avr à 16:45 | |
| 10 Lois usuelles 1. - Code:
-
vect<-seq(-5,5,by=0.01)
plot(vect,dnorm(vect,0,1),type='l')
lines(vect,dnorm(vect,1,1),type='l',col='red')
lines(vect,dnorm(vect,-0.4,1),type='l',col='green') 2. - Code:
-
x11()
plot(vect,dnorm(vect,0,1),type='l')
lines(vect,dnorm(vect,0,1.4),type='l',col='red')
lines(vect,dnorm(vect,0,0.8 ),type='l',col='green') 3. - Code:
-
x<-seq(0,10,by=0.01)
plot(x,dchisq(x,2),type='l')
lines(x,dchisq(x,3),type='l',col='red')
lines(x,dchisq(x,4),type='l',col='green') 4. - Code:
-
k<-seq(0,20)
prob=dbinom(k,20,0.8 )
plot(k,prob) - Code:
-
rbinom(20,1,0.55)
[1] 0 1 1 0 1 1 1 1 1 1 1 0 1 1 0 1 1 1 0 1
b=rbinom(20,1,0.55)
mean(b)
[1] 0.75
b1=rbinom(200,1,0.55)
mean(b1)
[1] 0.545
X=runif(50, min=0, max=1)
Y=runif(50, min=0, max=1)
Z=X^2+Y^2
Z[Z<1]=1
Z[Z>1]=0
Z
mean(Z)*4
[1] 3.44 | |
|
