Les posteurs les plus actifs de la semaine
cmoi
 
Eric Wajnberg
 
poypoy
 
lilbiostat
 
Jok3iSbett3r
 
gg
 
Scaldo
 


Simulation

Voir le sujet précédent Voir le sujet suivant 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 : 752
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

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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