Итак, картинка.
Точки - фактический вес. Красная линия - экспоненциально взвешенное скользящее среднее. Провал на графике -- сильное обезвоживание в экспедиции. Потом организм восстановился и активно сопротивляется похуданию. Похоже, надо подключать более серьезную аэробную нагрузку.
Ну, и хороший пример незначимой регрессии
Код:
> summary(lm1<-lm(MyW$V1[185:200]~MyW$idx[185:200]))
Call:
lm(formula = MyW$V1[185:200] ~ MyW$idx[185:200])
Residuals:
Min 1Q Median 3Q Max
-0.6629 -0.4086 0.1468 0.3729 0.6360
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 98.559118 4.887682 20.16 9.62e-12 ***
MyW$idx[185:200] 0.001029 0.025516 0.04 0.968
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.4705 on 14 degrees of freedom
Multiple R-squared: 0.0001162, Adjusted R-squared: -0.0713
F-statistic: 0.001628 on 1 and 14 DF, p-value: 0.9684
Иными словами, последние 15 дней имеем случайный шум вокруг 98.6 кг. такие дела.