Die Suche ergab 8 Treffer

von Gwinzy
Sa Jul 11, 2020 4:13 pm
Forum: Regressionsmodelle
Thema: Bestes Modell finden
Antworten: 3
Zugriffe: 1708

Bestes Modell finden

Hallo,
ich kenne zwar stepAIC, aber gibt es eine Möglichkeit, automatisch das beste Modell zu finden, die auch Wechselwirkungen/Quadrierte Parameter und ähnliches beachtet?

Mit freundlichen Grüßen
Gwinzy
von Gwinzy
Mi Jun 10, 2020 11:56 am
Forum: Regressionsmodelle
Thema: P-wert
Antworten: 2
Zugriffe: 1496

Re: P-wert

Den p-Wert habe ich jetzt doch schon alleine geschafft, aber ich hänge bei der nächsten Aufgabe.

Eine Funktion, die einen F-Test für die Nullhypothese H0: L*beta=r mit selbstgewählten L und r (bei vernünftig gewählter Voreinstellung) erzeugt.
Ich scheitere schon daran, dass ich keine Ahnung habe ...
von Gwinzy
Mi Jun 10, 2020 9:23 am
Forum: Regressionsmodelle
Thema: P-wert
Antworten: 2
Zugriffe: 1496

P-wert

Hallo,

ich soll den p-wert eines Regressionsmodell für alle Koeffizienten berechnene, so wie es summary macht.
Leider finde ich da keinen passenden Ansatz. Hat da jemand eine Idee?

Mit freundlichen Grüßen
Gwinzy
von Gwinzy
So Jun 07, 2020 2:05 pm
Forum: Regressionsmodelle
Thema: Kleinste Quadrate Schätzer
Antworten: 10
Zugriffe: 4962

Re: Kleinste Quadrate Schätzer

Danke für die Tipps, so schaut es echt gleich viel schöner aus :)
von Gwinzy
Sa Jun 06, 2020 7:43 pm
Forum: Regressionsmodelle
Thema: Kleinste Quadrate Schätzer
Antworten: 10
Zugriffe: 4962

Re: Kleinste Quadrate Schätzer

attach(swiss)
meinlogit <- function (x,y)
{ idx <- (1:length(x))
nenner <- 0
zaehler <- 0

beta <- 0
for(i in idx){
zaehler <- zaehler + (x[i]-mean(x))*(y[i]-mean(y))
nenner <- nenner + (x[i]-mean(x))^2

}
beta[2] <- zaehler/nenner
beta[1] <- mean(y)-beta[2]*mean(x)

return (list(beta ...
von Gwinzy
Fr Jun 05, 2020 4:03 pm
Forum: Regressionsmodelle
Thema: Kleinste Quadrate Schätzer
Antworten: 10
Zugriffe: 4962

Re: Kleinste Quadrate Schätzer

Code: Alles auswählen

attach(swiss)
meinlogit <- function (x,y) 
{ idx <- (1:length(x))
  nenner <- 0
  zaehler <- 0
  for(i in idx){
      zaehler <- zaehler + (x[i]-mean(x))*(y[i]-mean(y))
      nenner <- nenner + (x[i]-mean(x))^2
  }
	zaehler/nenner
}
/code]
von Gwinzy
Mi Jun 03, 2020 4:16 pm
Forum: Regressionsmodelle
Thema: Kleinste Quadrate Schätzer
Antworten: 10
Zugriffe: 4962

Re: Kleinste Quadrate Schätzer

Hallo Ruedi und Jörg,
danke, aber ich habe jetzt eine andere Formel benutzt, mit der ich auf das richtige Ergebnis gekommen bin.
von Gwinzy
Mi Jun 03, 2020 2:33 pm
Forum: Regressionsmodelle
Thema: Kleinste Quadrate Schätzer
Antworten: 10
Zugriffe: 4962

Kleinste Quadrate Schätzer

Hallo,

ich soll eine kleinste-Quadrate Schätzung programmieren.

Meine Funktion ist die folgende:
attach(swiss)
meinlogit <- function (x,y)
{
(solve(t(x)%*%x)[1,1]*t(x))%*%y
}
meinlogit(Education, Fertility)

Allerdings ist meine Ergebnis nicht das gleiche wie das von
summary(lm(Fertility ...