Verfügbare Informationen zu "3"
Qualität des Beitrags: Beteiligte Poster: Nils Forum: das Problem R aus dem Unterforum: R Aufgaben auf Zettel 3 Antworten: 1 Forum gestartet am: Freitag 18.05.2007 Sprache: deutsch Link zum Originaltopic: 3 Letzte Antwort: vor 16 Jahren, 10 Monaten, 25 Tagen, 5 Stunden, 43 Minuten
Alle Beiträge und Antworten zu "3"
Re: 3
Nils - 24.05.2007, 12:053
joa, kein gewähre auf richtigkeit...
a)
Code: #====================================================#
#---------------3. Übung zur Vorlesung---------------#
#-Mathematische Methoden in den Biowissenschaften II-#
#------------------SS 2007, Harmand------------------#
#----------------Autor: Nils Petersen----------------#
#====================================================#
#-Aufgabe 13. a)
rm(list=ls(all=TRUE))
#Mit Hilfe des Befehls rbinom werden 600 Versuche mit
#der Wahrscheinlicheit 1/6. Die möglichen Ausgänge sind
#0 (Misserfolg) und 1 (Erfolg). Die Werte werden in
#dem Vektor x gespeichert.
x=rbinom(600,1,1/6)
#Mit cumsum wird nun die kumulierte Partialsumme des
#Vektors x gebildet.
y=cumsum(x)
#Nun werden die relativen Häufigkeiten geplotet.
#type="1" bewirkt, dass die einzelnen Punkte verbunden
#werden. Mit abline wird zudem eine horizontale Gerade
#mit der wahren Wahrscheinlichkeit hinzugefügt. Außerdem
#werden noch zwei Graphen mit f(n)=1/6+((5^0,5)/2)(1/(n^0,5))
#bzw. f(n)=1/6-((5^0,5)/2)(1/(n^0,5)) mit eingezeichnet.
plot(y/1:600, type="l", xlab="Versuche",
ylab="Relative Häufigkeitsverteilung")
abline(h=1/6,col=c("blue"))
curve(1/6+((5^0.5)/2)*(1/(x^0.5)),add=TRUE,col="red",
las=1)
curve(1/6-((5^0.5)/2)*(1/(x^0.5)),add=TRUE,col="skyblue",
las=1) [/code]
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum das Problem R
Ähnliche Beiträge wie "3"
Filmchen raten - Mogel (Freitag 19.03.2004)
Kino - neue Filme - Pippilotta (Samstag 03.04.2004)
Alle Filme - groudon (Donnerstag 12.07.2007)
Filme! - noe (Donnerstag 15.04.2004)
6. Spieltag Dithm. Geest (H) - Basti (Montag 01.11.2010)
Zitate raten... - Incognito (Mittwoch 16.06.2004)
Song Texte raten - Incognito (Donnerstag 17.06.2004)
Großer Preis von Brasilien / São Paulo - Pascha (Mittwoch 03.11.2010)
filme - Kohrny (Dienstag 21.08.2007)
Filme - bloodless (Freitag 13.07.2007)