3

das Problem R
Verfügbare Informationen zu "3"

  • Qualität des Beitrags: 0 Sterne
  • 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 15 Jahren, 6 Monaten, 15 Tagen, 15 Stunden, 6 Minuten
  • Alle Beiträge und Antworten zu "3"

    Re: 3

    Nils - 24.05.2007, 11:05

    3
    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)