Die letzten Beiträge des Themas - SS10: UE4
Autor |
Nachricht |
legendary
|
Verfasst: Mi 28-04-2010 00:00:19
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")
| | | | |
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") [/code]
|
|
legendary
|
Verfasst: Di 27-04-2010 23:57:19
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")
| | | | |
[quote="der_emu"]c1: [code] > y1<-dgamma(g,10.4492374,1.129647) > y2<-dgamma(g,10.45038,0.8851351) [/code][/quote] 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") [/code]
|
|
Peda
|
Verfasst: Di 27-04-2010 17:03:55
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.
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.
|
|
der_emu
|
Verfasst: Di 27-04-2010 16:27:17
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) | | | | |
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)[/code]
|
|
Peda
|
Verfasst: Di 27-04-2010 15:46:06
Re: SS10: UE4
Hat irgendwer was zu den R-Beispielen? Komm' mit der Graphik nicht ganz klar.
mfg Peda
Hat irgendwer was zu den R-Beispielen? Komm' mit der Graphik nicht ganz klar.
mfg Peda
|
|
heijo
|
Verfasst: Mo 26-04-2010 19:48:54
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?
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?
|
|
the_who
|
Verfasst: Sa 24-04-2010 19:52:59
Re: SS10: UE4
@heijo: Danke für die Lösungen.
@heijo: Danke für die Lösungen. :D
|
|
c.sagmeister
|
Verfasst: Sa 24-04-2010 16:40:26
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.
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.
|
|
heijo
|
Verfasst: Sa 24-04-2010 12:24:43
Re: SS10: UE4
Meine Vorschläge.
Meine Vorschläge.
|
|
heijo
|
Verfasst: Fr 23-04-2010 15:30:19
SS10: UE4
Zu 2: Kann es sein, dass es ausreicht zu sagen: tau(0)=inf?
Zu 2: Kann es sein, dass es ausreicht zu sagen: tau(0)=inf?
|
|
|
|