Commit 07f84e51 authored by Lie-Piang, Anouk's avatar Lie-Piang, Anouk
Browse files

Upload New File

parent b3be8280
--
title: "R Notebook"
output:
html_notebook: default
html_document: default
---
# Set WD
```{r}
setwd("C:/ModelsLocal")
```
#Import data
```{r}
library(readxl)
Component_Data <- read_excel("Component_Data.xlsx",
sheet = "Sheet1") #Fill in the category to be analysed: Isolates, Mildly refined, Mixtures, Alldata
attach(Component_Data)
#detach(Component_Data)
```
```{r}
#rename variables
dm = `Dry matter (%)`
viscosity = log(`Final viscosity (mPa.s)`)
```
## Load libraries
```{r}
library(MASS)
library(tidyverse)
library(ggplot2)
library(heatmap3)
library(corrplot)
library(cowplot)
library(car)
library(R2HTML)
library(readxl)
```
# Create all possible formulas
```{r}
model= lm(viscosity~ dm, data=Component_Data)
summary(model)
plot(model)
HTML2clip(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