+ {
+ "cell_type": "markdown",
+ "metadata": {},
+ "source": [
+ "## Exercise 5.1"
+ ]
+ },
+ {
+ "cell_type": "code",
+ "execution_count": null,
+ "metadata": {},
+ "outputs": [],
+ "source": [
+ "rubber <- read.csv('rubber.csv')"
+ ]
+ },
+ {
+ "cell_type": "code",
+ "execution_count": null,
+ "metadata": {
+ "hidden": true,
+ "solution2": "hidden"
+ },
+ "outputs": [],
+ "source": [
+ "fit.s <- lm(loss ~ strength, data = rubber)\n",
+ "summary(fit.s)\n",
+ "anova(fit.s)"
+ ]
+ },
+ {
+ "cell_type": "code",
+ "execution_count": null,
+ "metadata": {},
+ "outputs": [],
+ "source": [
+ "ggplotRegression(fit.s)"
+ ]
+ },