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
Die Suche ergab 8 Treffer
- Sa Jul 11, 2020 4:13 pm
- Forum: Regressionsmodelle
- Thema: Bestes Modell finden
- Antworten: 3
- Zugriffe: 1708
- 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 ...
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 ...
- 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
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
- 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 

- 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 ...
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 ...
- 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]
- 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.
danke, aber ich habe jetzt eine andere Formel benutzt, mit der ich auf das richtige Ergebnis gekommen bin.
- 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 ...
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 ...