"Plot with title “Histogram of IFO_MC[, \"fit\"]”"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"hist(IFO_MC[,\"fit\"]) # Yield difference due to change in inorganic F output"
]
},
{
"cell_type": "code",
"execution_count": 50,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
" fit lwr upr \n",
" Min. :6581 Min. :6458 Min. :6703 \n",
" 1st Qu.:6599 1st Qu.:6476 1st Qu.:6722 \n",
" Median :6617 Median :6493 Median :6741 \n",
" Mean :6617 Mean :6492 Mean :6741 \n",
" 3rd Qu.:6635 3rd Qu.:6509 3rd Qu.:6760 \n",
" Max. :6653 Max. :6525 Max. :6781 "
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"summary(IFO_MC)"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"Not much change: no matter what inorganic F output we have, the yields will be 6580-6640 for the case when farmer has 3000 income and 1 sugar and 57 cereal\n",
"Aha, now our distribution is different: if we vary both farmer income and cereal, we're most likely to have a yield of ~5500, but less likely more and less, and it's completely impossible to have yields above 8000 and below 4000 if our sugar is 1."
hist(IFO_MC[,"fit"])# Yield difference due to change in inorganic F output
```
%% Output
%% Cell type:code id: tags:
``` R
summary(IFO_MC)
```
%% Output
%% Cell type:markdown id: tags:
Not much change: no matter what inorganic F output we have, the yields will be 6580-6640 for the case when farmer has 3000 income and 1 sugar and 57 cereal
Aha, now our distribution is different: if we vary both farmer income and cereal, we're most likely to have a yield of ~5500, but less likely more and less, and it's completely impossible to have yields above 8000 and below 4000 if our sugar is 1.
