Update FractionModel.Rmd

FractionModel.Rmd

@@ -6,16 +6,15 @@ output: html_notebook
 #Import data 
 ```{r}
 library(readxl)
-FractionData <- read_excel("Fractiondata.xlsx", 
-    sheet = "Alldata_average")
+FractionData <- read_excel("Fill in the name of your excel file.xlsx", 
+    sheet = "fill in the name of your sheet")
 attach(FractionData) 
     
 #rename data
 viscosity = log(`Final viscosity (mPa.s)`)
-dehulledcoarse = `Coarse fraction (%)` 
-dehulledfine = `Fine fraction (%)` 
-flour = `Flour (%)` #also dehulled 
-hull = `Hull (%)`
+coarse = `Coarse fraction (%)` 
+fine = `Fine fraction (%)` 
+flour = `Flour (%)` 
 protisol = `Protein isolate (%)`
 starchisol = `Starch isolate (%)`
 fibreisol = `Fibre isolate (%)`
@@ -35,7 +34,7 @@ library(readxl)
 ```
 #Create model
 ```{r}
-model= lm(viscosity~ dehulledcoarse + dehulledfine + flour + hull+ protisol + starchisol + fibreisol, data=FractionData)
+model= lm(viscosity~ coarse + fine + flour + protisol + starchisol + fibreisol, data=FractionData)
 ```
 
 ```{r}