Updated on 2020-11-22
fit0 <- lm(df_daily_italy$active_cum ~ df_daily_italy$date, data = head(df_daily_italy,30) )
summary(fit0)##
## Call:
## lm(formula = df_daily_italy$active_cum ~ df_daily_italy$date,
## data = head(df_daily_italy, 30))
##
## Residuals:
## Min 1Q Median 3Q Max
## -134363 -114429 -31702 64494 564906
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.919e+07 2.042e+06 -9.398 <2e-16 ***
## df_daily_italy$date 1.046e+03 1.107e+02 9.447 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 144100 on 271 degrees of freedom
## Multiple R-squared: 0.2477, Adjusted R-squared: 0.245
## F-statistic: 89.24 on 1 and 271 DF, p-value: < 2.2e-16