Faithful
Yoan Bidart
10-02-2017
Welcome !
Welcome to the presentation of my shiny app, based on the Old Faithful Geyser Data from R dataset package, describing eruptions and waiting time. Let's see what it looks like !
Waiting versus eruption time plot
We can see a linear tendency in the data.
Linear model
Then I made a linear model to predict the length of eruption, based on the waiting time.
fit <- lm(eruptions~waiting, data=faithful)
anova(fit)
Analysis of Variance Table
Response: eruptions
Df Sum Sq Mean Sq F value Pr(>F)
waiting 1 286.478 286.478 1162.1 < 2.2e-16 ***
Residuals 270 66.562 0.247
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Link
With a p-value of 2.2e-16 we can say our results are quite significant.
I hope you will enjoy using the shiny app, here is the link.
Thank you !