So bin ich einen Kurs nehmen, die R Lernen erfordert, und ich habe Schwierigkeiten mit einem der Fragen:HW Zuordnung R von Grund auf für das Lernen
In dieser Frage werden Sie eine Funktion innerhalb einer anderen Funktion aufrufen üben. Wir werden die Wahrscheinlichkeit von zwei Sechsen durch Simulation von Würfelwürfen schätzen. (Die richtige Wahrscheinlichkeit für vier Dezimalstellen ist 0.0278
oder 1 in 36).
(1) Erstellen einer Funktion, die eine Reihe
roll.dice()
ndice und gibt das Ergebnis des Rollens ndice Anzahl der Würfel nimmt. Dies sind sechsseitige Würfel, die Zahlen zwischen 1 und 6 zurückgeben können. Zum Beispielroll.dice(ndice=2)
könnte4 6
zurückgeben. Verwenden Sie diesample()
-Funktion und achten Sie dabei auf die Option zum Ersetzen.(2) Erstellen Sie jetzt eine Funktion
prob.sixes()
mit dem Parameter nsamples, die zuerst j gleich 0 setzt und dannroll.dice()
mehrmals aufruft (nbeispiel mal). Jedes Mal, wennroll.dice()
zwei Sechsen zurückgibt, addiere eins zu j. Dann gebe die Wahrscheinlichkeit zurück, zwei Sechsen zu werfen, was durch n Stichproben geteilt wird.
Ich bin fein mit dem ersten Teil, oder zumindest glaube ich so, so ist dies, was ich
roll.dice<-function(ndice)
{
roll<-sample(1:6,ndice,TRUE)
return(roll)
}
roll.dice(ndice=2)
habe, aber ich mit Teil zwei am kämpfen. Dies ist, was ich bis jetzt habe:
prob.sixes<-function(nsamples) {
j<-vector
j<-0
roll.dice(nsamples)
if (roll.dice==6) {
j<-j+1
return(j)
}
}
prob.sixes(nsamples=3)
Sorry für den ganzen Text, aber kann mir jemand helfen?
Für Leute, die bereit sind, hier zu antworten, finden Sie in den Richtlinien zur Beantwortung von Hausaufgaben Fragen hier: http: //meta.stackexchange.com/questions/10811/how-do-i-ask-und-antwort-hausaufgaben-fragen? lq = 1 – andrechalom
Ich verbesserte die Formatierung enorm und einige Grammatik und Rechtschreibkorrekturen – zx485