Update FractionModel.Rmd

FractionModel.Rmd

@@ -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))
 ```