Simulation

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

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

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

Hello,

Tu peux également faire :

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

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