Commit 9d2e81a4 authored by Lie-Piang, Anouk's avatar Lie-Piang, Anouk
Browse files

Update FractionModel.Rmd

parent bf11c24e
......@@ -12,8 +12,8 @@ attach(FractionData)
#rename data
viscosity = log(`Final viscosity (mPa.s)`)
dehulledcoarse = `Coarse fraction (%)` #dehulled from Nienke
dehulledfine = `Fine fraction (%)` #dehulled from Nienke
dehulledcoarse = `Coarse fraction (%)`
dehulledfine = `Fine fraction (%)`
flour = `Flour (%)` #also dehulled
hull = `Hull (%)`
protisol = `Protein isolate (%)`
......@@ -33,21 +33,12 @@ library(car)
library(R2HTML)
library(readxl)
```
#Model with only parameters that make sense
#Create model
```{r}
model= lm(viscosity~ dehulledcoarse + dehulledfine + flour + hull+ protisol + starchisol + fibreisol, data=FractionData)
# model= lm(viscosity~coarse* fine* flour*hull* protisol* starchisol* fibreisol, data=FractionData)
summary(model)
```
```{r}
plot(model)
```
```{r}
HTML2clip(summary(model))
```
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment