Hallo Lars,
ich nehme jetzt mal die Daten von dem Vektor
enden - dort sollten ja laut Konstruktion die Umsätze für jedes Jahr aufsummiert sein. Wenn ich Dich richtig verstanden habe, möchtest Du folgendes machen:
Code: Alles auswählen
enden <-
structure(c(2488.38, 4509.8, 2545.21, 3988.94, 5581.81, 6189.44,
6391.61, 6236.95, 6395.16, 7536.19), .Dim = 10L, .Dimnames = list(
c("2005", "2006", "2007", "2008", "2009", "2010", "2011",
"2012", "2015", "2016")))
d <- data.frame(jahr=as.numeric(names(enden)), umsatz=enden)
lm(umsatz ~ jahr, data=d)
regr <- lm(umsatz ~ jahr, data=d)
summary(regr)
Ergebnis:
Code: Alles auswählen
> summary(regr)
Call:
lm(formula = umsatz ~ jahr, data = d)
Residuals:
Min 1Q Median 3Q Max
-1452.15 -621.35 19.24 761.91 962.09
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -818862.33 165089.30 -4.960 0.00111 **
jahr 409.99 82.14 4.992 0.00106 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 903.1 on 8 degrees of freedom
Multiple R-squared: 0.757, Adjusted R-squared: 0.7266
F-statistic: 24.92 on 1 and 8 DF, p-value: 0.001064
Wenn das nicht passend ist, einfach nochmal ruhig uns erklären, was Du machen möchtest.
Gruß, Jörg
p.s.: