Problem mit for Schleife
Verfasst: Di Mär 27, 2018 4:41 pm
Hallo,
habe problem mit einer for-Schleife:
Ich habe eine Stichprobe mit Zurücklegen aus den 12 Monaten des Jahres. Ich will jetzt wissen, wie oft bei meiner Stichprobe zwei gleiche Monate gezogen werden, wenn ich 6 mal ziehe. Dazu simuliere ich die Stichprobe sehr oft und zähle die Male, wo ein Monat zwei mal oder öfter gezogen wird.
So die Idee. Wenn ich mir aber eine Funktion schreibe, die mir die Anzahl der Treffer (= der Anzahl der Ziehungen, bei der ein Monat zwei mal oder öfter gezogen wird), bekomme ich 1 zurück, auch wenn ich bei dem data.frame mehr als 1 sehen kann. Wieso ? Hier der Code:
Was stimmt hier nicht? Danke im Voraus.
habe problem mit einer for-Schleife:
Ich habe eine Stichprobe mit Zurücklegen aus den 12 Monaten des Jahres. Ich will jetzt wissen, wie oft bei meiner Stichprobe zwei gleiche Monate gezogen werden, wenn ich 6 mal ziehe. Dazu simuliere ich die Stichprobe sehr oft und zähle die Male, wo ein Monat zwei mal oder öfter gezogen wird.
So die Idee. Wenn ich mir aber eine Funktion schreibe, die mir die Anzahl der Treffer (= der Anzahl der Ziehungen, bei der ein Monat zwei mal oder öfter gezogen wird), bekomme ich 1 zurück, auch wenn ich bei dem data.frame mehr als 1 sehen kann. Wieso ? Hier der Code:
Code: Alles auswählen
z<-c("jan","feb","mar","apr","mai","juni","juli","aug","sept","okt","nov","dez")
sample(z,6,replace = TRUE,prob = c(0.077,0.077,0.077,0.077,0.077,
0.077,0.10,0.10,0.10,0.077,0.077,0.077))
geb<- replicate(50, sample(z,6,replace = TRUE,prob = c(0.077,0.077,0.077,0.077,0.077,0.077,0.10,0.10,0.10,0.077,0.077,0.077)))
#Habe einen Wahrscheinlichkeitsvektor, da nicht alle Monate gleich wahrscheinlich sind.
anztreffer <- function(a){
treffer=0
for(i in 1:50){
if(max(table(a[,i]))>=2){
treffer=treffer + 1
}
return(treffer)}}