Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Lie-Piang, Anouk
Functionality-oriented selection of ingredients
Commits
bf11c24e
Commit
bf11c24e
authored
Jun 02, 2021
by
Lie-Piang, Anouk
Browse files
Upload New File
parent
812628ad
Changes
1
Hide whitespace changes
Inline
Side-by-side
FractionModel.Rmd
0 → 100644
View file @
bf11c24e
---
title: "Fraction model"
output: html_notebook
---
#Import data
```{r}
library(readxl)
FractionData <- read_excel("Fractiondata.xlsx",
sheet = "Alldata_average")
attach(FractionData)
#rename data
viscosity = log(`Final viscosity (mPa.s)`)
dehulledcoarse = `Coarse fraction (%)` #dehulled from Nienke
dehulledfine = `Fine fraction (%)` #dehulled from Nienke
flour = `Flour (%)` #also dehulled
hull = `Hull (%)`
protisol = `Protein isolate (%)`
starchisol = `Starch isolate (%)`
fibreisol = `Fibre isolate (%)`
```
#Load packages
```{r}
library(MASS)
library(tidyverse)
library(ggplot2)
library(heatmap3)
library(corrplot)
library(cowplot)
library(car)
library(R2HTML)
library(readxl)
```
#Model with only parameters that make sense
```{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))
```
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment