Les posteurs les plus actifs de la semaine
doc.bass
 
ycaba
 
zezima
 
lenny868
 


Simulation

Aller en bas

Simulation

Message par joecastro le Sam 10 Déc 2016 - 10:42

Bonjour a tous.

J ai besoin d aide. Ça fais 10 jours que cherche...et j arrive pas !!pfuuuu
Alors voila.
Je cherche a faire une simulation de 500 lancements d un dés. Pour cela je pense que tout vas bien.
x<- sample (1:6,size=500,replace=T,prob=c(1/6,1/6,1/6,1/6,1/6,1/6))

Aprés je cherche a trouvé une proportion de la face numero "5" de ma simulation après 50 lancements.
Et lá !! je vois pas comment faire !!

En plus de celá, je cherche a representé sur un diagramme la relation entre la proportion de face nº5 et le numero de lancement simulées.
Quelqu un peut m aidé?
Merci d avance

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation

Message par victornitho le Dim 11 Déc 2016 - 22:46

Bonsoir,

Pour la première question, tu peux commencer par limiter aux 50 premières données du vecteur :
sub<-x[1:50]

Ensuite tu peux utiliser table(sub) pour obtenir les effectifs de chaque lancé. Et pour la proportion de 5 : length(sub[sub==5])/length(sub)

Pour la deuxième question tu peux utiliser une boucle for :
prop<-NA
for (i in 1:500) {xa<-x[1:i]
prop[i]<-length(xa[xa==5])/length(xa)}


Victor

victornitho

Nombre de messages : 11
Date d'inscription : 03/03/2014

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation

Message par joecastro le Dim 11 Déc 2016 - 23:03

Bonsoir Victor

Grande Merci.
J ai finalmente reussi a le faire. C est presque pareil.
>x<-sample(1:6,500,replace=TRUE)
>b<-numeric(500)
>for(i in 1:500){b[i]<-sum(x[1:i]==5)/i}

Encore une fois. GRAND MERCI

Joe

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation

Message par zezima le Lun 12 Déc 2016 - 8:30

Hello,

Tu peux également faire :

table(x) #Pour ton nombre de "5"
prop.table(table(x)) #Pour ta proportion de "5"
avatar
zezima

Nombre de messages : 809
Date d'inscription : 26/02/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation

Message par joecastro le Lun 12 Déc 2016 - 9:08

Bonjour.
Merci. Encore plus simples!!! Je debute 😀

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum