},
{
"cell_type": "code",
- "execution_count": 4,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 5,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 11,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 12,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 13,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 14,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 15,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
"anova(fit.tats)"
]
},
+ {
+ "cell_type": "code",
+ "execution_count": null,
+ "metadata": {},
+ "outputs": [],
+ "source": [
+ "ggplotRegression(fit.tats)"
+ ]
+ },
{
"cell_type": "markdown",
"metadata": {},
},
{
"cell_type": "code",
- "execution_count": 112,
- "metadata": {},
- "outputs": [
- {
- "data": {
- "text/html": [
- "<table>\n",
- "<thead><tr><th scope=col>Vars</th><th scope=col>Adj.R.2</th></tr></thead>\n",
- "<tbody>\n",
- "\t<tr><td>TA </td><td>0.4915797</td></tr>\n",
- "\t<tr><td>TS </td><td>0.6359290</td></tr>\n",
- "\t<tr><td>TA, TS </td><td>0.9744140</td></tr>\n",
- "</tbody>\n",
- "</table>\n"
- ],
- "text/latex": [
- "\\begin{tabular}{r|ll}\n",
- " Vars & Adj.R.2\\\\\n",
- "\\hline\n",
- "\t TA & 0.4915797\\\\\n",
- "\t TS & 0.6359290\\\\\n",
- "\t TA, TS & 0.9744140\\\\\n",
- "\\end{tabular}\n"
- ],
- "text/markdown": [
- "\n",
- "Vars | Adj.R.2 | \n",
- "|---|---|---|\n",
- "| TA | 0.4915797 | \n",
- "| TS | 0.6359290 | \n",
- "| TA, TS | 0.9744140 | \n",
- "\n",
- "\n"
- ],
- "text/plain": [
- " Vars Adj.R.2 \n",
- "1 TA 0.4915797\n",
- "2 TS 0.6359290\n",
- "3 TA, TS 0.9744140"
- ]
- },
- "metadata": {},
- "output_type": "display_data"
- }
- ],
+ "execution_count": null,
+ "metadata": {},
+ "outputs": [],
"source": [
"fits <- list(fit.ta, fit.ts, fit.tats)\n",
"data.frame(\n",
},
{
"cell_type": "code",
- "execution_count": 113,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 114,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 35,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 36,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
- "fit <- lm(ventil ~ oxygen, data = anaerobic)\n",
- "summary(fit)\n",
- "anova(fit)"
+ "fit.o <- lm(ventil ~ oxygen, data = anaerobic)\n",
+ "summary(fit.o)\n",
+ "anova(fit.o)"
]
},
{
"cell_type": "code",
- "execution_count": 37,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
- "ggplotRegression(fit)"
+ "ggplotRegression(fit.o)"
]
},
{
"cell_type": "code",
- "execution_count": 38,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
- "autoplot(fit)"
+ "autoplot(fit.o)"
]
},
{
},
{
"cell_type": "code",
- "execution_count": 39,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
},
{
"cell_type": "code",
- "execution_count": 40,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
- "fit <- lm(ventil ~ oxygen + oxy2, data = anaerobic)\n",
- "summary(fit)\n",
- "anova(fit)"
+ "fit.o2 <- lm(ventil ~ oxygen + oxy2, data = anaerobic)\n",
+ "summary(fit.o2)\n",
+ "anova(fit.o2)"
]
},
{
},
{
"cell_type": "code",
- "execution_count": 41,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
- "ggplotRegression(fit)"
+ "ggplotRegression(fit.o2)"
]
},
{
"cell_type": "code",
- "execution_count": 42,
+ "execution_count": null,
"metadata": {},
"outputs": [],
"source": [
- "autoplot(fit)"
+ "autoplot(fit.o2)"
]
},
{