|
Seite 1 von 1
|
[ 10 Beiträge ] |
|
Autor |
Nachricht |
heijo
Registriert: 06/2009 Beiträge: 25 + 12
|
SS10: UE4
Zu 2: Kann es sein, dass es ausreicht zu sagen: tau(0)=inf?
|
Fr 23-04-2010 15:30:19 |
|
|
heijo
Registriert: 06/2009 Beiträge: 25 + 12
|
Re: SS10: UE4
Meine Vorschläge.
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
|
Sa 24-04-2010 12:24:43 |
|
|
c.sagmeister
Registriert: 10/2008 Beiträge: 29 + 132
|
Re: SS10: UE4
2. Mit dem Satz vom unbewussten Statistiker konkret den Erwartungswert des Schätzers bestimmen - wäre er unverzerrt, hätte ich ein Polynom vom Grad größer 0, dass für alle x in (0,1) konstant ist - unmöglich.
_________________ Bist du Mathematiker oder bist du Auzinger? DONT USE MAPLE
|
Sa 24-04-2010 16:40:26 |
|
|
the_who
Registriert: 10/2008 Beiträge: 29 + 19 Wohnort: Oberwölbling
|
Re: SS10: UE4
@heijo: Danke für die Lösungen.
|
Sa 24-04-2010 19:52:59 |
|
|
heijo
Registriert: 06/2009 Beiträge: 25 + 12
|
Re: SS10: UE4
Anmerkung zu Bsp 3 (ist vielleicht etwas verwirrend aufgeschrieben): nur Schätzer für alpha unverzerrt. Vgl Bsp 2: Gibt es einen unverzerrten Schätzer für theta?
|
Mo 26-04-2010 19:48:54 |
|
|
Peda
Registriert: 05/2008 Beiträge: 25
|
Re: SS10: UE4
Hat irgendwer was zu den R-Beispielen? Komm' mit der Graphik nicht ganz klar.
mfg Peda
|
Di 27-04-2010 15:46:06 |
|
|
der_emu
Registriert: 03/2008 Beiträge: 25 + 18
|
Re: SS10: UE4
c1: | | | | Code: > g<-seq(0,20,by=0.1) > y1<-dgamma(g,10.4492374,1.129647) > y2<-dgamma(g,10.45038,0.8851351) > hist(x,prob=TRUE,xlim=c(0,20),ylim=c(0,0.2)) > lines(g,y1,col="grey",lwd=2) > lines(g,y2,col="black",lwd=2) | | | | |
|
Di 27-04-2010 16:27:17 |
|
|
Peda
Registriert: 05/2008 Beiträge: 25
|
Re: SS10: UE4
Danke, jetzt hab' ich's hingebogen! Man muss allerdings noch etwas wie
x<-seq(0,20,by=0.1)
vorher schreiben, damit es geht, ich denke, dass war mein Problem.
|
Di 27-04-2010 17:03:55 |
|
|
legendary
Registriert: 10/2008 Beiträge: 27 + 21
|
Re: SS10: UE4
wichtig ist eben wie man auf die schätzwerte kommt! also mein C1 sieht dann etwa so aus: | | | | Code: library(MASS) ## loading package MASS
x <- c(10,10,6,11,8,7,11,12,12,6,10,6,13,8,12,7,6,16,9,5) y <- fitdistr(x,"gamma") val <- seq(min(x),max(x),by=0.1)
hist(x,probability=TRUE);lines(density(x),col="red") lines(val, dgamma(val,shape=y$estimate[1], rate=y$estimate[2]),col="blue") bet <- (n-1)/n*var(x)/mean(x) alph <- mean(x)/bet
lines(val,dgamma(val,shape=alph, rate=bet),col="green")
| | | | |
_________________ What do you call a bird that flew away from home? Poly-gon!
Zuletzt geändert von legendary am Mi 28-04-2010 00:25:37, insgesamt 1-mal geändert.
|
Di 27-04-2010 23:57:19 |
|
|
legendary
Registriert: 10/2008 Beiträge: 27 + 21
|
Re: SS10: UE4
und noch der Code für C2: | | | | Code: library(MASS) ## loading package MASS
x <- scan("golf.txt")
hist(x,probability=TRUE); lines(density(x),col="red") val <- seq(min(x),max(x),by=0.1) lines(val,dnorm(val,mean(x),sd(x)),col="blue") y <- fitdistr(x,"logistic") lines(val,dlogis(val,location=y$estimate[1],scale=y$estimate[2]),col="green")
| | | | |
_________________ What do you call a bird that flew away from home? Poly-gon!
|
Mi 28-04-2010 00:00:19 |
|
|
|
Seite 1 von 1
|
[ 10 Beiträge ] |
|
Wer ist online? |
Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste |
|
Du darfst neue Themen in diesem Forum erstellen. Du darfst Antworten zu Themen in diesem Forum erstellen. Du darfst deine Beiträge in diesem Forum nicht ändern. Du darfst deine Beiträge in diesem Forum nicht löschen. Du darfst keine Dateianhänge in diesem Forum erstellen.
|
|